Para que tanto rollo :D jejejeje (sin ofender), lo podemos resumir así, a mi me ha funcionado, :D jejejej me gusta depurar y reducir mis códigos pa que sean mas chiquitos :D y ocupen menos memoria :D
'-----------------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
'El cuadro de Texto 'Text1' aceptara solo Caracteres fuera del rango entre 48 -Valor 0- y 57 -Valor 9-.
'Asignandole el valor NULL -Ascii 0- en el caso de ser un número
If ((KeyAscii >= 48) Or (KeyAscii <= 57)) Then KeyAscii = 0
'Ahora, si queremos hacer algo cuando sea la Tecla ENTER, o bien
'Tecla ESCAPE, hacemos la siguiente decisión multiple...
Select Case KeyAscii
Case 27 'Si es Escape, cerrar el cuadro de dialogo...
Unload Me
Case 13 'Si es ENTER, colocar el Foco en el siguiente control, por ejemplo si se tratase de un Text2
Text2.SetFocus
End Select
End Sub
'-----------------------------------
Pues bien, aquí esta el código sencillito :D para incluirlo en tu evento KeyPress de cualquier TextBox que tengas, nomas que si lo incluyes en otro text diferente, trata de cambiar el nombre de Text1 en el codigo, por el que tiene tu Text actual para que funcione a la perfeccion.
Ok, espero te haya servido, me dices :D okas ?.
Atte: XcUiDi. (
[email protected]) <---- toy conectado al Messenger todos los días despues de las 10:30 pm Hora México para cualquier duda o sugerencia sobre programación :D