---

Function division2(zaehler As Double, nenner As Double) As Double
    Dim quotient As Double
    If nenner = 0 Then
        MsgBox ("Versuch durch 0 zu teilen!")
        division2 = 0
        Exit Function
    End If
        quotient = zaehler / nenner
        division2 = quotient
End Function

---