Hi,

I a, trying to fill out a web form using the inet control
and the login name only supports a-z, 0-9, - and _ characters. I was just wondering if there was a shorter wat to do this than what I have done, I know it can be done in the keypress event, but it is not to check the text until a command button is pressed so this is the code:

Code:
Dim i As Long
For i = 1 To Len(Text1)
If Mid$(Text1, i, i) = "a" Or Mid$(Text1, i, i) = "b" Or Mid$(Text1, i, i) = "c" Or Mid$(Text1, i, i) = "d" Or Mid$(Text1, i, i) = "e" Or Mid$(Text1, i, i) = "f" Or Mid$(Text1, i, i) = "g" Or Mid$(Text1, i, i) = "h" Or Mid$(Text1, i, i) = "i" Or Mid$(Text1, i, i) = "j" Or Mid$(Text1, i, i) = "k" Or Mid$(Text1, i, i) = "l" Or Mid$(Text1, i, i) = "m" Or Mid$(Text1, i, i) = "n" Or Mid$(Text1, i, i) = "o" Or Mid$(Text1, i, i) = "p" Or Mid$(Text1, i, i) = "q" Or Mid$(Text1, i, i) = "r" Or Mid$(Text1, i, i) = "s" Or Mid$(Text1, i, i) = "t" Or Mid$(Text1, i, i) = "u" Or Mid$(Text1, i, i) = "v" Or Mid$(Text1, i, i) = "w" Or Mid$(Text1, i, i) = "x" Or Mid$(Text1, i, i) = "y" Or Mid$(Text1, i, i) = "z" Or Mid$(Text1, i, i) = "1" Or Mid$(Text1, i, i) = "2" Or Mid$(Text1, i, i) = "3" Or Mid$(Text1, i, i) = "4" Or Mid$(Text1, i, i) = "5" Or Mid$(Text1, i, i) = "6" Or Mid$(Text1, i, i) = "7" Or Mid$(Text1, i, i) = "8" Or Mid$(Text1, i, i) = "9" Or Mid$(Text1, i, i) = "0" Or Mid$(Text1, i, i) = "-" _
Or Mid$(Text1, i, i) = "_" Then
Else
MsgBox "Invalid Character in Login Name", vbExclamation, "Error"
Exit Sub
End If
Next i