08-10-2008, 03:23 AM
Replacing:With:Works, but is it a good fix? 
Changed vbKeySpace to 32 and vbKeyHelp to 126. All client-side.
Code:
For i = 1 To Len(Msg)
If Asc(Mid$(Msg, i, 1)) < vbKeySpace Or Asc(Mid$(Msg, i, 1)) > vbKeyHelp Then
Call MsgBox("You cannot use high ascii chars in your name, please reenter.", vbOKOnly, GAME_NAME)
txtName.Text = vbNullString
Exit Sub
End If
Next i
Code:
For i = 1 To Len(Msg)
If Asc(Mid$(Msg, i, 1)) < 32 Or Asc(Mid$(Msg, i, 1)) > 126 Then
Call MsgBox("You cannot use high ascii chars in your name, please reenter.", vbOKOnly, GAME_NAME)
txtName.Text = vbNullString
Exit Sub
End If
Next i

Changed vbKeySpace to 32 and vbKeyHelp to 126. All client-side.