---

Function berechneAnnuitaet_nach_Tilgungssatz(ByVal betrag As Double, _
                                             ByVal Zinssatz As Double, _
                                             ByVal Tilgungssatz As Double) As Double
    berechneAnnuitaet_nach_Tilgungssatz = betrag * (Zinssatz + Tilgungssatz)
End Function

---