A short-cut for digits is the # symbol; so, you can check for 4 digits like
this...

If NumberString Like "####" Then MsgBox "NumberString is 4 digits long"

--
Rick (MVP - Excel)


"Daryl S" wrote in message
...
Dreiding -

I am not sure why you aren't using Excel's functions, but here is why
your's
isn't working.

You are only testing for the last character to be 0-9. The asterisk will
match to zero or more characters. For example,
Like "*6"
will match for all of these:
abc6
126
6
Z6

That means Like "*[0-9]" will match to any character string ending in a
numeric digit.

If you have a fixed-length string of length 4 and you want them all
numeric,
then you could use this:
Like "[0-9][0-9][0-9][0-9]"

If it is variable-length, then you could loop through each character to
test
for numerics.

--
Daryl S


"Dreiding" wrote:

Using Excel 2003, here is example code that doesn't work. What am I
doing
wrong?
My isNumeric test returns "True", but there an "A" in my string.
Am I not checking for all the character to be 0 - 9?

Sub Test1()
Debug.Print isNumeric("A00101")
End Sub

Function isNumeric(ByVal sInput As String) As Boolean
If sInput Like "*[0-9]" Then
isNumeric = True
Else
isNumeric = False
End If
End Function

Thanks,
- Pat