怎么样让TEXTBOX 中只能输入实型或整型数据

用代码实现：IsNumeric 函数，返回 Boolean 值，指出表达式的运算结果是否为数，

语法

IsNumeric(expression)

必要的 expression 参数是一个 Variant，包含数值表达式或字符串表达式。

说明

如果整个 expression 的运算结果为数字，则 IsNumeric 返回 True；否则返回 False。

如果 expression 是日期表达式，则 IsNumeric 返回 False。

比如有一个textbox控件的名称是text1

On Error Resume Next
IF VarType(CInt(text1.text)<>vbInteger Then
     MsgBox "输入的非整形数字"
End IF
上面的例子举一反三，如果判断符点型（小数点型）就把CInt换成CSng把vbInteger换成vbSingle。
 
以此类推来改变强制类型转换函数和后面的数据类型。

谢了