---

Function berechneLaufzeit(ByVal Betrag As Double, _
                          ByVal Zinssatz As Double, _
                          ByVal Annuitaet As Double) As Double
    Dim zwischenergebnis1 As Double
    Dim zwischenergebnis2 As Double

    zwischenergebnis1 = Log(Annuitaet / (Annuitaet - Betrag * Zinssatz))
    zwischenergebnis2 = Log(Zinssatz + 1)

    berechneLaufzeit = zwischenergebnis1 / zwischenergebnis2
End Function

---