VB*****对输入框内容的限定如何实现?

我要实现对接受输入的文本框进行实时监测,只能接受输入数值,如果输入的为空格或字母等任何非数值内容,则即时报错.应该如何实现?

---

VB code:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (Chr(KeyAscii) Like "[0-9]") And KeyAscii <> 8 Then
KeyAscii = 0
MsgBox "只能输入数字！", vbExclamation
End If
End Sub

---

Private Sub Text1_Change()
    If Not IsNumeric(Text1.Text) Then
        MsgBox "不是数字"
        Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
    End If
End Sub

---

真搞不懂，发那么多的贴子干什么！
天大的事吗？

VB code:
Private Sub Text1_KeyPress(KeyAscii As Integer)

If (KeyAscii >= 32) Then
If (KeyAscii >= 48 Or KeyAscii <= 57) Then Exit Sub
Else
If (KeyAscii > 0) Then Exit Sub
End If
KeyAscii = 0
' MsgBox "只能输入数字！", 48

End Sub

---

csdn多的是

---

用这个IsNumeric 限制 还有ASCII 限制， 还别忘记了 加上 on error resume next 防止啥也不输入导致的 崩溃！

就这三点了！！！

---

我 3F 的逻辑关系搞错了　 ，