Ps hay varias opciones para hacer eso..
la mas facil pero algo larga es esta :
haz esta funcion ... PONLO DONDE QUIERAS.. PERO SI QUIERS K ESTE PARA CUALQUIER COSA .. PS PONLO EN UN MODULO
-----------------
Function solonada(KeyAscii As Integer) As String
If KeyAscii = 8 Then
KeyAscii = 8
ElseIf InStr("", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
solonada = KeyAscii
End Function
------------------------
aHORA EN EL COMBO EN EL EVENTO KEYPRESS PONES ESTO
Private Sub DataCombo1_KeyPress(KeyAscii As Integer)
Call solonada(KeyAscii)
End Sub
--------
CREO K CON ESTA LA HACES
ES UNA DE LAS MAS SENCILLAS PERO ALGO LARGA.. CHAO Y BESOS