Sub ABC()
Dim s#, p#, R#, j#, z#, g#, sa#
s = InputBox("Kreditsumme eingeben: ")
p = InputBox("Zinssatz in % eingeben: ")
R = InputBox("Raten eingeben: ")
j = 0
z = 0
sa = s
p = p / 100
Do While (s > 0 And s - R >= 0)
z = z + ((s * p) / 12)
s = (s + ((s * p) / 12)) - R
j = j + 1
Loop
j = j / 12
g = sa + z
MsgBox ("Laufzeit = " & Format(j, "0.00") & vbNewLine & _
"Letzte Rate beträgt " & Format(s, "0.00") & " EUR" & vbNewLine & _
"Die Zinsen betragen " & Format(z, "0.00") & " EUR" & vbNewLine & _
"Gesamtsumme beträgt: " & Format(g, "0.00") & " EUR")
End Sub