Try this function:

Function PositionFirstNONNumberInString(strString As String) As Long

Dim i As Long
Dim btArray() As Byte

btArray = strString

For i = 0 To UBound(btArray) Step 2
If btArray(i) < 48 Or btArray(i) 57 Then
PositionFirstNONNumberInString = i \ 2 + 1
Exit Function
End If
Next

PositionFirstNONNumberInString = -1

End Function


RBS


"Chaplain Doug" wrote in message
...
Excel 2003. What VBA string function(s) can I use to accomplish the
following:

I want to pass a string that may or may not contain a telephone number. I
want to check to see if it is indeed a telephone number. That is, I want
to
check to see if the string contains only telephone type info (i.e.,
0123456789()- ) or conversely, I want to check if the string contains
non-telephone type info (i.e., alpha). How can I accomplish this? Thanks
for any help.
--
Dr. Doug Pruiett
Good News Jail & Prison Ministry
www.goodnewsjail.org