This code will move through a string and tell you which is numeric and what is not.

Add a text box and command button to your project. Cut and past the code below. Leave the Text1 text in the text box.

========================================

Private Sub Command1_Click()
Dim I, S As String
For I = 1 To Len(Text1)
S = Left(Text1, I)
S = Right(S, 1)
If IsNumeric(S) Then
MsgBox (S & " is numeric")
Else
MsgBox (S & " is not numeric")
End If
Next

End Sub