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