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