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