---

Sub hauptprogramm_annuitaeten()
    Dim betrag As Double
    Dim Zinssatz As Double
    Dim Laufzeit As Double
    Dim Annuitaet As Double
    Dim Periode As Integer
    Dim Restschuld As Double

    betrag = InputBox("Bitte den Kreditbetrag eingeben")
    Zinssatz = InputBox("Bitte den Zinssatz eingeben")
    Laufzeit = InputBox("Bitte die Laufzeit eingeben")
    Periode = InputBox("Bitte die Periode eingeben")

    Annuitaet = berechneAnnuitaet_nach_Laufzeit(betrag, Zinssatz / 100, Laufzeit)
    Restschuld = berechneRestschuld(betrag, Periode, Zinssatz / 100, Annuitaet)

    MsgBox "Annuitaet: " & Annuitaet & Chr(13) & "Restschuld: " & Restschuld
End Sub

---