Option Explicit

Sub bankEinfach2()
'Programm berechnet monatl Belastung
'Dateiname: bankEinfach2
    
    
Dim preis As Double
    
Dim eigenkapital As Double
    
Dim kreditBetrag As Double
    
Dim zins As Double
    
Dim tilgung As Double
    
Dim jahresBelastung As Double
    
Dim monatsBelastung As Double
    
Dim eigenkapitalQuote As Double
    zins = 8.5
    preis = InputBox("Bitte geben Sie den Preis der Immobilie ein!")
    eigenkapital = InputBox("Und nun ihr Eigenkapital!")
    tilgung = InputBox("Zum Schluss die Tilgung!")
    
    eigenkapitalQuote = (eigenkapital / preis) * 100
    
If eigenkapitalQuote < 30 Then
        MsgBox ("Ihre Eigenkapitalquote ist zu niedrig, sie " & Chr$(13) & _
                "nur: " & eigenkapitalQuote & "%")
    
Else
        kreditBetrag = preis - eigenkapital
        jahresBelastung = kreditBetrag * (zins + tilgung) / 100
        monatsBelastung = jahresBelastung / 12
        MsgBox ("Ihre monatliche Belastung beträgt: " & monatsBelastung)
    
End If
End Sub