---

      
Function berechneAnnuitaet_nach_Laufzeit(ByVal Betrag As Double, _
                                         ByVal Zinssatz As Double, _
                                         ByVal Laufzeit As Double) As Double
    Dim Annuitaetenfaktor As Double
    Dim q As Double
    q = Zinssatz + 1
    Annuitaetenfaktor = (q ^ Laufzeit * Zinssatz) / (q ^ Laufzeit - 1)
    berechneAnnuitaet_nach_Laufzeit = Betrag * Annuitaetenfaktor
End Function 

---