en el keypress del textbox colócale esto y listo:
Código vb:
Ver originalPrivate Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= Asc("a") And KeyAscii <= Asc("z")) Or (KeyAscii >= Asc("A") And KeyAscii <= Asc("Z")) Or KeyAscii = 32 Or KeyAscii = 8 Then
KeyAscii = Asc(Chr(KeyAscii))
Else
KeyAscii = 0
End If
End Sub