---

Function berechneZinszahlung(ByVal Betrag As Double, _
                             ByVal Periode As Integer, _
                             ByVal Zinssatz As Double, _
                             ByVal Annuitaet As Double) As Double
    berechneZinszahlung = berechneRestschuld(Betrag, Periode - 1, Zinssatz, Annuitaet) * Zinssatz
End Function

---