---

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

---