
12-31-2003, 04:23 AM
|
|
Senior Contributor
* Expert *
|
|
Join Date: Jul 2003
Posts: 1,300
|
|
you will need to loop through each char to check if its a letter or any other char.
Code:
Dim i As Integer, counter As Integer
For i = 1 To Len(Text1.Text)
Select Case Asc(Mid$(Text1.Text, i, 1))
Case 65 To 90, 97 To 122 'doesnt count if letters, uppercase or lowercase
Case Else
counter = counter + 1
End Select
Next i
If counter = 0 Then
MsgBox "Validate"
Else
MsgBox "Not valid"
End If
thingimijig.
|
|