Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
For i = 1 To Len(TextBox1.Text)
If IsNumeric(Strings.Left(TextBox1.Text, i)) = True Then '函数判断只能输入数字 否则清空
Debug.Print("数字")
Label6.Visible = False
Else
Debug.Print("非数字")
TextBox1.Text = ""
Label6.Visible = True
End If
Next
End Sub
度了好多娘都发现要么可以复制粘贴，要么可以快捷键。。。
此法你的文本框再也搞不进数字之外的东西了。

Strings.Left(TextBox1.Text, i)还要搞成 ，，，他奶奶的。。。。Strings.Mid(TextBox1.Text, i, 1)

处理文本框的KeyDown事件处理程序，Select Case e.KeyCode一下，Case KeyCode.Num0 To Num9:空白，换行Case Else:e.SurpressKey（这个名称的写法有点忘了）=True就行。

textbox1.text=
regex.replace(textbox1.text,"[^0-9]","")
这个行不行

看不下去了
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress, TextBox3.KeyPress, TextBox4.KeyPress
If Char.IsDigit(e.KeyChar) Or e.KeyChar = Chr(8) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub

有没有不输入中文的

更新下只能输入字母的代码，keypress 或者 keydown 真心不实用。
http://baike.baidu.com/view/15482.htm?from_id=99077&type=syn&fromtitle=ascii%E7%A0%81&fr=aladdin
此处有DEC的值，此方法较方便的更改限制 数字，字母，或者其它限制自己DIY等等的输入
'a-z的ASCII码为97-122
' A -Z的ASCII码为65 - 90
'Asc(a)将a转为ASCII码,+32后刚好是小写a的ASCII码
' 再用Chr函数转为对应字符()
'限制只能输入字母。
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
'a-z的ASCII码为97-122
' A -Z的ASCII码为65 - 90
'Asc(a)将a转为ASCII码,+32后刚好是小写a的ASCII码
' 再用Chr函数转为对应字符()
If TextBox2.Text = "" Then
'防止为空时出错
Else
For i = 1 To Len(TextBox2.Text)
'Debug.Print(Strings.Mid(TextBox2.Text, i, 1))
If Asc(Strings.Mid(TextBox2.Text, i, 1)) <= 122 _
And Asc(Strings.Mid(TextBox2.Text, i, 1)) >= 97 _
Or Asc(Strings.Mid(TextBox2.Text, i, 1)) >= 65 _
And Asc(Strings.Mid(TextBox2.Text, i, 1)) <= 90 Then
Debug.Print("输入的字母")
Else
TextBox2.Text = ""
End If
Next
End If
End Sub

对了，突然想起我以前下载了个vb的只能输入数字源码，不知道能不能转换过来

楼主你这是非主流做法。。。