Sub addition2()
    ' Programm addiert die zwei einzugebende Zahlen
    ' Dateiname: addition
    Dim ersterSummand As Integer
    Dim zweiterSummand As Integer
    Dim summe As Integer
    ersterSummand = InputBox("Bitte geben Sie den ersten Summanden ein")
    zweiterSummand = InputBox("Bitte geben Sie den zweiten Summanden ein")
    summe = ersterSummand + zweiterSummand
    MsgBox ("Summe: " & summe)
End Sub