Private Sub Command4_Click()
Dim i As Integer
Dim astring As String
i = 1
On Error GoTo err_handler
Do While i <= 1000
astring = astring & "1"
If IsNumeric(astring) = False Then
MsgBox "astring ist nicht mehr numerisch! i: " & i, vbInformation Or vbOKOnly, _
  "Isnumeric = false"
Exit Sub
End If
i = i + 1
Loop
 
err_handler:
MsgBox "Fehler bei: " & i & " Stellen.", vbCritical Or vbOKOnly, "Fehler" & _
  "gefunden"
End Sub

Gehe immer vom Guten Willen Anderer aus!