Option Explicit

Sub Monatliche_Belastung_berechnen(ByVal immobilienPreis As Double, _
                                    ByVal eigenkapital As Double, _
                                    ByVal zinsKlasse As Integer, _
                                    monatlicheBelastung As Double)
    Const tilgung As Double = 1
    Dim aufzunehmenderBetrag As Double
    Dim jahresBelastung As Double
    Dim eigenkapitalquote As Double
    aufzunehmenderBetrag = immobilienPreis - eigenkapital
    jahresBelastung = (aufzunehmenderBetrag / 100) * (zinsKlasse + tilgung)
    monatlicheBelastung = jahresBelastung / 12
End Sub

Sub testRahmen()
    ' Programm um das Testen von Prozeduren zu veranschaulichen
    ' Dateiname funktionen9
    Dim immobilienPreis As Double
    Dim eigenkapital As Double
    Dim zinsKlasse As Integer
    Dim monatlicheBelastung As Double
    immobilienPreis = InputBox("Immobilien Preis")
    eigenkapital = InputBox("eigenkapital")
    zinsKlasse = InputBox("zinsKlasse")
    Monatliche_Belastung_berechnen immobilienPreis, _
                                    eigenkapital, _
                                    zinsKlasse, _
                                    monatlicheBelastung
    MsgBox (monatlicheBelastung)
End Sub