---

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

---