Option Explicit

Sub divisionMitLaufzeitfehler()
' Programm dividiert die erste einzugebende Zahl
' durch die zweite einzugebende Zahl
' Dateiname: divisionMitLaufzeitfehler
    Dim zaehler As Double
    Dim nenner As Double
    Dim quotient As Double
    zaehler = InputBox("Bitte geben Sie den Zähler ein!")
    nenner = InputBox("Bitte geben Sie den Nenner ein!")
    quotient = zaehler / nenner
    MsgBox ("Quotient " & quotient)
End Sub