Private Sub TextBox1_KeyPress(ByVal sender As Object, _ ByVal e As System.Windows.Forms.KeyPressEventArgs) _ Handles TextBox1.KeyPress If InStr(1, "0123456789" & Chr(8), e.KeyChar) = 0 Then e.KeyChar = "" End If End Sub
Gracias a un comentario que recibí en mi otro blog, puedo rescatar sus palabras.
Existe otra forma de hacerlo y seria algo así:
If Char.IsNumber(e.KeyChar) Then e.Handled = False Else e.Handled = True End If