En el evento al bajar una tecla del campo que quieras pones el siguiente código:
Public Function PonLetras(ByVal KeyAscii As Integer) As Integer
If (KeyAscii > 64 And KeyAscii < 91) Or _ \'mayúsculas
(KeyAscii > 96 And KeyAscii < 123) Or _ \'minúsculas
(KeyAscii = 209) Then \'la ñ del castellano
PonLetras= KeyAscii \'si es esa letra dejamos que escriba
Else
PosaCif = PonEnteros(KeyAscii) \'si no es miramos si es un entero
End If
End Function
Public Function PonEnteros(ByVal KeyAscii As Integer) As Integer
If InStr(\"-0123456789\", Chr(KeyAscii)) = 0 Then \'si el caracter no es
PonEnteros= 0 \'no dejamos escribir
Else
PonEnteros= KeyAscii \'si es dejamos escribir
End If
If KeyAscii = 8 Then PonEnteros= KeyAscii
If KeyAscii = 13 Then PonEnteros= KeyAscii
End Function
Las dos últimas lineas son para que le usuario pueda corregir lo que ha puesto mediante la tecla retroceso y para que funcione el enter
Te he separado letras y enteros, para que puedas utilizar las funciones separadamente, es decir para que en determinados campos solo pongas letras o solo pongas enteros. Si quieres que sólo sean enteros sisn signo, sólo has de quitar el menos de la línea del InStr
Saludos
