---

Sub hauptprogramm_annuitaeten4()
    On Error GoTo Fehlerbehandlung
    Dim Betrag As Double
    Dim Zinssatz As Double
    Dim Tilgungssatz As Double
    Dim Laufzeit As Double
    Dim Annuitaet As Double
    Dim Periode As Integer
    Dim Restschuld As Double

    Betrag = wandle_in_double_um(InputBox("Bitte den Kreditbetrag eingeben"))
    Zinssatz = wandle_in_double_um(InputBox("Bitte den Zinssatz eingeben"))
    Tilgungssatz = wandle_in_double_um(InputBox("Bitte den Tilgungssatz eingeben"))
    Laufzeit = wandle_in_double_um(InputBox("Bitte die Laufzeit eingeben"))


    If Laufzeit > 0 Then
        pruefeLaufzeit Laufzeit
        Annuitaet = berechneAnnuitaet_nach_Laufzeit(Betrag, Zinssatz / 100, Laufzeit)
    ElseIf Tilgungssatz > 0 Then
        Annuitaet = berechneAnnuitaet_nach_Tilgungssatz(Betrag, Zinssatz / 100, Tilgungssatz / 100)
        Laufzeit = berechneLaufzeit(Betrag, Zinssatz / 100, Annuitaet)
    Else
        MsgBox "Bitte entweder Laufzeit oder Tilgungssatz eingeben"
        Exit Sub
    End If

    For Periode = 1 To Fix(Laufzeit)
            Restschuld = berechneRestschuld(Betrag, Periode, Zinssatz / 100, Annuitaet)
            MsgBox "Annuitaet: " & Annuitaet & Chr(13) & "Restschuld: " & Restschuld
    Next Periode

Fehlerbehandlung:
    MsgBox "Fehler: " & Err.Description
End Sub

---