Private Sub cmdtaschenrechneradd_Click()
Dim Zahl1 As Double
Dim Zahl2 As Double
Dim Ergebnis As Double
    Zahl1 = InputBox("Zahl 1 eingeben:")
    Zahl2 = InputBox("Zahl 2 eingeben:")
    Ergebnis = Zahl1 + Zahl2
    MsgBox Ergebnis
End Sub
 
Private Sub cmdtaschenrechnerdiv_Click()
Dim Zahl1 As Double
Dim Zahl2 As Double
Dim Ergebnis As Double
    Zahl1 = InputBox("Zahl 1 eingeben:")
    Zahl2 = InputBox("Zahl 2 eingeben:")
    'eine 2 Wege Verzweigung
    If Zahl2 = 0 Then
        MsgBox "Nicht möglich!"
    Else
        Ergebnis = Zahl1 / Zahl2
        MsgBox Zahl1 & " / " & Zahl2 & " = " & Ergebnis
    End If
End Sub