Private Sub Timer1_Timer()
Zahl = Text1.Text / 2
Hallo = InStr(Zahl, ",")
If Hallo > 0 Then
bruch = 1 / Text1.Text
If Label1.Caption = "-" Then
Text2.Text = Text2.Text + bruch
Label1.Caption = "+"
Else
Text2.Text = Text2.Text - bruch
Label1.Caption = "-"
End If
Text2.Text = Replace(Text2.Text, "-", "")
Text1.Text = Text1.Text + 1
zwischenergebnis = 1 - Text2.Text
Text3.Text = zwischenergebnis * 4
Else
Text1.Text = Text1.Text + 1
End If
End Sub

Michael