Validación de una caja de texto en Visual Basic 6.0 (ah vaina vieja)

Lo primero que debemos entender es crear una caja de texto en el formulario, por lo general el nombre de ésta caja de texto será"Text1".

Luego creamos un método privado que permita la entrada de sólo números en la caja de texto. ¿Cómo lo podemos hacer?. Sencillo.

Escribimos el método para la caja de Texto "Text1", luego el evento KeyPress es cada vez que presiona una una tecla o botón, por ello el evento se llama así.

Una vez hecho ésto, debemos pasar por parametro la tecla presionada, en éste caso será KeyAscii, que será de tipo entero.

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii > 48 And KeyAscii < 57 Then
           Text1.SetFocus()
     End If
End Sub

Ya con ésto aseguramos que solo admitirá números.