Sub addition5()
    ' Dies Programm addiert
    ' zwei Zahlen fehlerhaft
    ' Dateiname addition5
    ersteEingabe = InputBox("GebenSie die erste Zahl ein!")
    zweiteEingabe = InputBox("GebenSie die zweite Zahl ein!")
    ergebnis = ersteEingabe + zweiteEingabe
    MsgBox ("Die Summe ist: " & ergebnis)
End Sub