Sub Makro1()
    MsgBox ("Mój komunikat")
    MsgBox (Date)
    a = "To jest tekst domyslny"
        MsgBox (a)
        MsgBox ("Komunikat: " + a)
    b = InputBox("Podaj tekst: ")
        MsgBox (a + " " + b)
    Dim c, d As Integer
        c = InputBox("Podaj pierwsza liczbę: ")
        d = InputBox("Podaj drugą liczbę: ")
            MsgBox (c + d)
            MsgBox (c - d)
            MsgBox (c * d)
            MsgBox (c / d)
            MsgBox (c + Str(d))

End Sub