Option Explicit
Sub taschenrechnerMitLoopUntil()
' Taschenrechnerprogramm
' Dateiname: taschenrechnerLoopUntil
Dim ersterOperand As Double
Dim zweiterOperand As Double
Dim operator As String
Dim eingabe As String
Dim ergebnis As Double
' Gib Programmbeschreibung aus
MsgBox ("Geben Sie zwei Operanden und einen Operator ein!" _
        & Chr$(13) & "Das Programm verhält sich wie ein" _
        & " Taschenrechner. Als Operatoren sind +, - / und *" _
        & " zugelassen! Das Programm endet durch die Eingabe von " _
        & Chr$(13) & "0 als erstem Summanden!")
' Lies ersten Summanden ein
eingabe = InputBox("Geben Sie nun den ersten Operanden ein!")
Do
    ' Lies restliche und ueberpruefe alle Benutzereingaben
    If Not IsNumeric(eingabe) Then
        MsgBox ("Erster Operand muß eine Zahl sein!")
        Exit Sub
    End If
    ersterOperand = CDbl(eingabe)
    operator = InputBox("Geben Sie nun den Operator ein!")
    eingabe = InputBox("Geben Sie nun den zweiten Operanden ein!")
    If Not IsNumeric(eingabe) Then
        MsgBox ("Zweiter Operand muß eine Zahl sein!")
        Exit Sub
    End If
    zweiterOperand = CDbl(eingabe)
    ' Fuehre Berechnung durch
    Select Case operator
        Case "+"
            ergebnis = ersterOperand + zweiterOperand
        Case "-"
            ergebnis = ersterOperand - zweiterOperand
        Case "*"
            ergebnis = ersterOperand * zweiterOperand
        Case "/"
        If (zweiterOperand = 0) Then
            MsgBox ("Der Nenner ist 0!")
            Exit Sub
        End If
        ergebnis = ersterOperand / zweiterOperand
        Case Else
            MsgBox ("Der eingegebene Operator wird nicht " _
                    & "unterstützt!")
            Exit Sub
    End Select
    ' Gib das Ergebnis aus
    MsgBox (" " & ersterOperand & " " & operator & " " _
            & zweiterOperand & " = " & ergebnis)
    ' Lies ersten Operanden ein
    eingabe = InputBox("Geben Sie nun den ersten Operanden ein!")
Loop Until eingabe = "0"
End Sub