Sub additionUndMultiplikation()
    ' Dies Programm addiert und multipliziert
    ' zwei Zahlen fehlerhaft
    ' Dateiname additionUndMultiplikation
    Dim ersteEingabe As Integer
    Dim zweiteEingabe As Integer
    Dim ergebnis As Integer
    ersteEingabe = InputBox("Geben Sie die erste Zahl ein!")
    zweiteEingabe = InputBox("Geben Sie die zweite Zahl ein!")
    ergebnis = ersteEingabe + zweiteEingabe
    MsgBox ("Die Summe ist: " & ergebnis)
    ergbnis = ersteEingabe * zweiteEingabe
    MsgBox ("Das Produkt ist: " & ergebnis)
End Sub