---

      
Sub Division_ohne_Fehlerbehandlung()
    Dim zaehler As Double
    Dim nenner As Double
    
    zaehler = InputBox("Zaehler?", "Zaehler eingeben")
    nenner = InputBox("Nenner?", "Nenner eingeben")
    MsgBox "Quotient: " & zaehler / nenner
End Sub 

---