Option Explicit

Sub division2()
' 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
        MsgBox ("Der Nenner ist 0!")
        Exit Sub
    End If
    
    quotient = zaehler / nenner
    
    ' Gib das Ergebnis aus
    MsgBox ("Quotient " & quotient)
End Sub