Option Explicit
Sub division()
' Programm dividiert die erste einzugebende Zahl
' durch die zweite einzugebende Zahl
' Dateiname: division
Dim zaehler As Double
Dim nenner As Double
Dim quotient As Double
' Lies die Benutzereingaben ein
zaehler = InputBox("Bitte geben Sie den Zähler ein!")
nenner = InputBox("Bitte geben Sie den Nenner ein!")
' Berechne Quotienten
If (nenner <> 0) Then
quotient = zaehler / nenner
Else
MsgBox ("Der Nenner ist 0!")
Exit Sub
End If
' Gib das Ergebnis aus
MsgBox ("Quotient " & quotient)
End Sub