Sub test()
Dim x, t
x = "2Di3sco4ver5"
For t = 1 To Len(x)
If Not IsNumeric(Mid(x, t, 1)) Then MsgBox ("") & Mid(x, t, 1)
Next
End Sub



"Neily" skrev:

Hi,

I need a way fo identifying if a character within a string is alphabetic
character.
Is there an easy way to do this? I thought of something like the reverse of
the chr() command where you give it a letter and it returns the ascii number
for that character.

Any ideas?