Private Sub Text1_KeyPress(KeyAscii As Integer) If Not (Chr(KeyAscii) Like "[a-zA-Z0-9]" Or KeyAscii < 32) Then KeyAscii = 0 End Sub