Code:
Dim AnzahlWiederholungen As Integer
AnzahlWiederholungen = 10

For I=0 To AnzahlWiederholungen
 ergebis = geld * zinssatz
 geld = ergebnis

 Print geld         'Ausgabe über RS232
 Wait 1              '1 Sekunde warten
Next I
Meinst du sowas?