Option Explicit
Sub Gib_Programmbeschreibung_aus()
    MsgBox ("Bitte geben Sie Ihr Eigenkapital und den " _
        & Chr$(13) & "Kaufpreis ein, sowie die Ihnen zugeteilte" _
        & Chr$(13) & " Zinsklasse ein! Sie beenden das Programm," _
        & Chr$(13) & " indem Sie beenden als Kaufpreis angeben")
End Sub

Sub Lies_den_Immobilienpreis_ein(eingabe As String)
    eingabe = InputBox("Geben Sie jetzt den Kaufpreis ein!")
End Sub

Sub zinsberechnung()
' Programm berechnet die monatliche Belastung
' bei einzugebendem Kaufpreis und Eigenkapital
' Dateiname: funktionen3
Const zinsKlasse1 As Double = 5.5
Const zinsKlasse2 As Double = 5.3
Const zinsKlasse3 As Double = 5.2
Const zinsKlasse4 As Double = 5#
Const zinsKlasse5 As Double = 4.5
Const tilgung As Double = 1

Dim eingabe As String
Dim eigenkapital As Double
Dim immobilienPreis As Double
Dim aufzunehmenderBetrag As Double
Dim eigenkapitalquote As Double
Dim jahresBelastung As Double
Dim monatlicheBelastung As Double
Dim zinsKlasse As Integer

Gib_Programmbeschreibung_aus
Lies_den_Immobilienpreis_ein eingabe
Do While eingabe <> "beenden"
' Lies restliche und ueberpruefe alle Benutzereingaben
If Not IsNumeric(eingabe) Then
MsgBox ("Kaufpreis muß eine Zahl sein!")
Exit Sub
End If
immobilienPreis = CDbl(eingabe)
eingabe = InputBox("Geben Sie nun ihr Eigenkapital ein!")
If Not IsNumeric(eingabe) Then
MsgBox ("Eigenkapital muß eine Zahl sein!")
Exit Sub
End If
eigenkapital = CDbl(eingabe)
eingabe = InputBox("Geben Sie nun ihre Zinsklasse ein!")
If Not IsNumeric(eingabe) Then
MsgBox ("Zinsklasse muß eine Zahl sein!")
Exit Sub
End If
zinsKlasse = CInt(eingabe)
' führe Berechnungen durch
' berechne Eigenkapitalquote
eigenkapitalquote = (eigenkapital / immobilienPreis) * 100
If eigenkapitalquote < 30 Then
MsgBox ("Ihre Eigenkapitalquote " & eigenkapitalquote & _
"% ist zu niedrig!")
Exit Sub
Else
Select Case zinsKlasse
Case 1
'Monatliche Belastung berechnen
aufzunehmenderBetrag = _
immobilienPreis - eigenkapital
jahresBelastung = _
(aufzunehmenderBetrag / 100) * (zinsKlasse1 + tilgung)
monatlicheBelastung = jahresBelastung / 12
Case 2
'Monatliche Belastung berechnen
aufzunehmenderBetrag = _
immobilienPreis - eigenkapital
jahresBelastung = _
(aufzunehmenderBetrag / 100) * (zinsKlasse2 + tilgung)
monatlicheBelastung = jahresBelastung / 12
Case 3
'Monatliche Belastung berechnen
aufzunehmenderBetrag = _
immobilienPreis - eigenkapital
jahresBelastung = _
(aufzunehmenderBetrag / 100) * (zinsKlasse3 + tilgung)
monatlicheBelastung = jahresBelastung / 12
Case 4
'Monatliche Belastung berechnen
aufzunehmenderBetrag = _
immobilienPreis - eigenkapital
jahresBelastung = _
(aufzunehmenderBetrag / 100) * (zinsKlasse4 + tilgung)
monatlicheBelastung = jahresBelastung / 12
Case 5
'Monatliche Belastung berechnen
aufzunehmenderBetrag = _
immobilienPreis - eigenkapital
jahresBelastung = _
(aufzunehmenderBetrag / 100) * (zinsKlasse5 + tilgung)
monatlicheBelastung = jahresBelastung / 12
Case Else
MsgBox ("Sie haben eine falsche Zinsklasse" & _
" eingegeben! Zinsklasse muß" & _
" kleiner gleich 5 sein!")
Exit Sub
End Select
End If
' Gib Ergebnisse aus
MsgBox ("Ihre monatliche Belastung ist: " & monatlicheBelastung & " DM")
Lies_den_Immobilienpreis_ein eingabe
Loop
End Sub