Option Explicit
Sub taschenrechnerMitCaseSelect()
' Taschenrechnerprogramm
' Dateiname: taschenrechnerMitCaseSelect
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
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)