---

      
Function berechneRestschuld(ByVal Betrag As Double, _
                            ByVal Periode As Integer, _
                            ByVal Zinssatz As Double, _
                            ByVal Annuitaet As Double) As Double
    Dim aufgezinsteLeistung As Double
    Dim gezahlteGegenleistung As Double
    Dim q As Double

    q = Zinssatz + 1
    gezahlteGegenleistung = Annuitaet * ((q ^ Periode - 1) / Zinssatz)
    aufgezinsteLeistung = Betrag * q ^ Periode
    berechneRestschuld = aufgezinsteLeistung - gezahlteGegenleistung

End Function 

---