Como crear una caja de texto "textbox" sólo para valores numéricos con Visual Net.

Crearemos una función llamada soloNumeros:

Private Function soloNumeros(ByVal KCode As Int16) As Boolean

If (KCode >= 48 And KCode <= 57) Or KCode = 8 Then
Return False
Else
Return True
End If

End Function

En la caja de texto, en el evento KeyPress:

Private Sub TextBox1_KeyPress(ByVal sender As Object _
, ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles TextBox1.KeyPress

Me.Handled = soloNumeros(System.Convert.ToInt16(Asc(e.KeyChar)))

End Sub

Espero que os sea útil.