Function Monatliche_Belastung_berechnen(ByVal immobilienPreis As Double, _
                                        ByVal eigenkapital As Double, _
                                        ByVal zinsKlasse As Integer) 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)
    Monatliche_Belastung_berechnen = jahresBelastung / 12
End Function

Sub testRahmen()
    ' Programm um das Testen von Funktionen zu veranschaulichen
    ' Dateiname funktionen 10
    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")
    monatlicheBelastung = Monatliche_Belastung_berechnen(immobilienPreis, _
                                                            eigenkapital, _
                                                            zinsKlasse)
    MsgBox (monatlicheBelastung)
End Sub