¿Como forzar un textbox para que solo acepte números?

Introducción

Todos en algún momento nos hemos matado esforzándonos para que las cajas de texto tengan formato, una de esas ha sido el forzarlas a que sólo acepten números; aquí les tengo unas líneas de código sencillo que les ayudará a resolver el problema.

Forzar los textbox para que acepte sólo números

Primero debes tener en cuenta qué cajas de texto deberán tener éste código, por ejemplo: Teléfonos, números de identificación, cantidad, valor, etc. Debes tener en cuenta que debes usar otras teclas como Backspace, DEL, SUPR, ENTER, etc. Lo que debes incluir el ASCII de estas teclas. Este código lo apliqué en Visual Basic 6.0 versión profesional, pero si saben de algoritmos podrán interpretarlo para otro lenguaje.

Nota: Debes tener en cuenta el código ASCII de las teclas que quieras excluir y usarlas en los parámetros del código, para no tener problemas en la digitación durante la ejecución del programa.

El código:

Se utiliza el evento KeyPress de la caja de texto a forzar colocando las siguientes instrucciones, como aparece en el ejemplo:

Sub Text1_Keypress(KeyAscii As Integer)
    If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 127 Or KeyAscii = 8 Then
        ' El 48 es 0 y el 57 es 9, 127 es SUPR y 8 es Backspace
        Exit Sub 
    Else
        MsgBox "Solo números para registrar el valor a pagar sin puntos, " & _
               "ni comas, ni cualquier caracter especial!!" 
    End If
End Sub