Text values

[Trav]

If u have a txtbox where a user inputs a name u can use

If txt1.text isnumeric then
msgbox "that is not a valid name"
end if

But what is the command for text like alphanumeric is text and numbers but what is the one for just text

it doesnt like the command Isalphanumeric

thanks Trav

[abdul]

Public Function IsAllString(str As String)
Dim isit As Boolean
isit = True
For i = 1 To Len(str)
If (Mid(str, i, 1) >= "A" And Mid(str, i, 1) <= "Z") Or (Mid(str, i, 1) >= "a" And Mid(str, i, 1) <= "z") Then
isit = True
Else
isit = False
Exit For
End If
Next
IsAllString = isit
End Function

[Trav]

thanks for ur help m8

[abdul]

No Problem. I just reread your post and noticed that you only want letters (no punctuations, numbers, etc), right? I just changed the code so that it only accepts letters "a" to "z" or "A' to "Z".