Option Explicit
Sub additionMitDoUntil()
' Programm addiert die zwei einzugebende Zahlen
' Dateiname: additionMitDoUntil
Dim ersterSummand As Integer
Dim zweiterSummand As Integer
Dim summe As Integer
' Gib Programmbeschreibung aus
MsgBox ("Geben Sie Zwei Summanden ein!" _
& Chr$(13) & "Das Programm berechnet die" _
& " Summe ! Sie beenden das" _
& " Programm durch die Eingabe 0!")
' Lies ersten Summanden ein
ersterSummand = InputBox("Bitte geben Sie den ersten Summanden ein")
Do
' Lies zweiten Summanden ein
zweiterSummand = InputBox("Bitte geben Sie den zweiten Summanden ein")
' Berechne die Summe
summe = ersterSummand + zweiterSummand
' Gib das Ergebnis aus
MsgBox ("Summe: " & summe)
' Lies ersten Summanden ein
ersterSummand = InputBox("Bitte geben Sie den ersten Summanden ein")
Loop Until ersterSummand = 0
End Sub