Es te c�digo nos muestra como validar un texbox que acepte solo n�meros, En Visual Basic .NET

Abra un nuevo proyecto, En Proyectos de Visual Basic seleccione la plantilla Aplicaci�n para Windows.

En la Barra de Herramientas Seleccione Proyecto se le desplegara una lista  seleccione Agregar M�dulo.

Agregue un Textbox al Formulario y no le cambie el Nombre, D�jelo como textbox1

En el Modulo copie y pegue este c�digo:

'****************************************************************************************

'* C�digo realizado por Angel Ruiz � (Venezolano)                                       *

'****************************************************************************************

    Function SoloNumeros(ByVal Keyascii As Short) As Short
        If InStr("1234567890", Chr(Keyascii)) = 0 Then
            SoloNumeros = 0
        Else
            SoloNumeros = Keyascii
        End If
        Select Case Keyascii
            Case 8
                SoloNumeros = Keyascii
            Case 13
                SoloNumeros = Keyascii
        End Select
    End Function
------------------------------------------------------------------------------------------------
Ahora valla al Formulario y haga doble click sobre el:

Despu�s de la l�nea:

Inherits System.Windows.Forms.Form

Copie y pegue esta Declaraci�n de Variable

Public KeyAscii As Short

Ahora en el evento KeyPress del textBox1 copie y pegue este c�digo

Dim KeyAscii As Short = CShort(Asc(e.KeyChar))
        keyascii = CShort(SoloNumeros(keyascii))
        If keyascii = 0 Then
            e.Handled = True
        End If
 

Quedar�a de la siguiente forma:

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim KeyAscii As Short = CShort(Asc(e.KeyChar))
        keyascii = CShort(SoloNumeros(keyascii))
        If keyascii = 0 Then
            e.Handled = True
        End If
End Sub
 

Ahora ejecute su aplicaci�n presionando F5.

Fichero con el c�digo de ejemplo, (ar_SoloNumeros.zip - 20,8 KB)