Private Sub UserForm_Click()
Dim txtAnfang As Integer
Dim txtZins As Integer
Dim txtWunsch As Integer
Dim txtLaufzeit As Integer
Dim intBetrag As Integer
Dim intZinsen As Integer
End Sub
Private Sub cmdBerechnen_Click()
txtLaufzeit = 0
intZinsen = 0
intBetrag = txtAnfang
Do
intZinsen = intBetrag / 100 * txtZins
intBetrag = intBetrag + intZinsen
MsgBox "Zins " & txtZins & vbCr & "Zinsen " & intZinsen & vbCr & "Betrag " & intBetrag & vbCr & "Wunsch " & txtWunsch
txtLaufzeit = txtLaufzeit + 1
Loop Until intBetrag > txtWunsch
End Sub
Private Sub cmdEnde_Click()
Me.Hide
End Sub