---

      
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 

---