Sub additionUndMultiplikationOptionExplizit()
' Dies Programm addiert und multipliziert
' zwei Zahlen fehlerhaft
' Dateiname optionExplicit
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