Sub  addition()
    ' Programm addiert die zwei Zahlen 9 und 10
    ' Dateiname: addition
    Dim ersterSummand As Integer
    Dim zweiterSummand As Integer
    Dim summe As Integer
    ersterSummand = 9
    zweiterSummand = 10
    summe = ersterSummand + zweiterSummand
    MsgBox ("Summe: " & summe)
End Sub