Private Sub Command1_Click()
 
Dim i
 
    For i = 0 To 9
 
OnesAgain:
 
        On Error GoTo FB
 
        Text1(i).Text = i
 
        GoTo Nexti
FB:
 
    a = MsgBox("Fehler bei : " & i & "Nochmal?", 36)
 
    If a = 6 Then
        GoTo OnesAgain
    Else
        GoTo Nexti
    End If
 
Nexti:
    Next i
 
End Sub