Option Explicit
Sub bankEinfach()
'Programm berechnet monatl Belastung
'Dateiname: bankEinfach
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
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!")
kreditBetrag=preis-eigenkapital
jahresBelastung=kreditBetrag*(zins+tilgung)/100
monatsBelastung=jahresBelastung/12
MsgBox("Ihre monatliche Belastung beträgt: " & monatsBelastung)
End Sub