Option Explicit
Private Sub BerechnenButton_Click()
'Variablendeklaration
Dim immobilienpreisString As String
Dim eigenkapitalString As String
Dim zinsKlasseString As String
Dim eigenkapital As Double
Dim immobilienpreis As Double
Dim zinsKlasse As Integer
Dim monatlicheBelastung As Double
Dim i As Integer
'Variablen Werte aus Eingabe zuweisen
immobilienpreisString = ImmobilienpreisInput.Text
eigenkapitalString = EigenkapitalInput.Text
zinsKlasseString = ZinsklasseInput.Text
'Benutzereingaben überprüfen
If Not ueberpruefe_alle_Benutzereingaben(immobilienpreisString, _
eigenkapitalString, _
zinsKlasseString, _
immobilienpreis, _
eigenkapital, _
zinsKlasse) _
Then Exit Sub
If Not fuehre_Berechnungen_durch(eigenkapital, _
immobilienpreis, _
zinsKlasse, _
monatlicheBelastung) _
Then Exit Sub
'nächste freie Zeile feststellen
i = naechsteFreieZeile()
'Ergebnis in Zelle schreiben
Cells(i, 1) = "Ihre monatliche Belastung betr\'a8agt"
Cells(i, 2) = monatlicheBelastung
End Sub