表单验证

各位大神， 我的界面有大量的TEXTBOX ，没有用数组控件。
 我要限制textbox只能输入数字，小数和负数。
 帮我看看 代码那里有问题。
 运行无效果，还是可以输入中英文字符。
 
Dim m_currentTextBox As TextBox
 Private Sub Form_Initialize()
 Me.KeyPreview = True
 End Sub
 Private Sub Form_KeyPress(KeyAscii As Integer)
 
If m_currentTextBox Is Me.ActiveControl And IsNumeric(Chr(KeyAscii)) = False And KeyAscii <> 46 Then KeyAscii = 0
 
End Sub textbox --------------------编程问答-------------------- Private Sub TextBox1_Change()
    On Error Resume Next
    If AscB(Left(TextBox1.Text, 1)) < 48 Or AscB(Left(TextBox1.Text, 1)) > 57 Then
        TextBox1.Text = “”
    End If
End Sub
添加后，实际上可以输入汉字，只不过在输入后会清空文本框中的内容，好像不能输入汉字一样。
--------------------编程问答-------------------- 在Form_KeyPress中更改KeyAscii对TextBox没有影响吧，应该在TextBox_KeyPress中修改吧，为什么不用控件数组？ --------------------编程问答-------------------- VBA  里面没有控件数组啊

补充：VB ,  VBA