Option Explicit
Sub additionMitDoWhile()
' Programm addiert die zwei einzugebende Zahlen
' Dateiname: additionMitDoWhile
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 While ersterSummand <> 0
    ' 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

End Sub