http://www.recursosvisualbasic.com.a...l_text_box.htm
Option Explicit
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Verificar_Tecla(KeyAscii)
End Sub
Function Verificar_Tecla(Tecla_Presionada)
Dim Teclas As String
'Acepta solo estos carateres
Teclas = "1234567890ABCDEDabcdef"
If InStr(1, Teclas, Chr(Tecla_Presionada)) Then
Verificar_Tecla = Tecla_Presionada
Else
' Si no es ninguna de las indicadas retorna 0
Verificar_Tecla = 0
End If
End Function
Y en San Google:
http://www.google.es/search?hl=es&cl...G=Buscar&meta=
salu2