Option Explicit

Sub taschenrechner()
' Taschenrechnerprogramm
' Dateiname: taschenrechner
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!")

' Lies und ueberpruefe die Benutzereingaben
eingabe = InputBox("Geben Sie nun den ersten Operanden ein!")
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
If operator = "+" Then
        ergebnis = ersterOperand + zweiterOperand
    ElseIf operator = "-" Then
        ergebnis = ersterOperand - zweiterOperand
    ElseIf operator = "*" Then
        ergebnis = ersterOperand * zweiterOperand
    ElseIf operator = "/" Then
        If (zweiterOperand = 0) Then
            MsgBox ("Der Nenner ist 0!")
            Exit Sub
        End If
        ergebnis = ersterOperand / zweiterOperand
    Else
        MsgBox ("Der eingegebene Operator wird nicht " _
                & "unterstützt!")
        Exit Sub
End If
' Gib das Ergebnis aus
MsgBox (" " & ersterOperand & " " & operator & " " _
        & zweiterOperand & " = " & ergebnis)
End Sub