Vb Zinseszins Berechnen

hallo beisammen,
Vb Zinseszins Berechnung habe ich mit dieser Formel hin bekommen. Jetzt würde ich aber gern die einzelnen Werte aus der Schleife in jedem jahr zu sehen bekommen. Wie mach ich das? Und wie stelle ich die Formel so um, dass ich nicht den Endwert bekomme, sondern ich hätte gern die monatliche Belastung. Der Endwert ist al Minimum Wert bekannt.
Dim X1, Z1, Y1, Y3, LZ1, i1, Y2, m1, EZ1, AUS1, EZA As Double
Y1 = CDbl(txtY1.Text)
Z1 = CDbl(txtZ1.Text)
LZ1 = CInt(txtLZ1.Text)
EZ1 = CDbl(txtEZ1.Text)
AUS1 = CDbl(txtAUS1.Text)
m1 = 12
Y1 = Y1 * m1
EZA = EZ1 - (EZ1 * (AUS1 / 100))
Y2 = Y1
Y3 = EZA + (EZA * (Z1 / 100 / 2))
For i1 = 1 To LZ1
Y3 = (Y3 + (Y3 * (Z1 / 100))) + (Y1 - (Y1 * (AUS1 / 100))) * (1 + Z1 / 100 / 2)
Next
lblX1.Text = Y2.ToString(´n0´)
lblY1.Text = Y3.ToString(´n0´)
cu,
michel

guten tag.
fangen wir mal vorne an. Wenn ich mir mal die Deklaration Deiner Variablen anschaue wundert es mich dass da überhaupt etwas funktioniert, denn lediglich die letzte Variable ist ein Doublewert.
Bei der monatlichen Belastung fehlt ******mathematisch die Info, ob vorschüssig (am 1. für den Monat) oder nachschüssig (am letzten Tag des Monats für den Monat).
Schau Dir mal hier die Formelsammlung auf Seite 5 (Fall 4a an): [Nur registrierte User können Links sehen. ]
bye bye
Döne