请教一个好的屏敝非数字键的函数

[xumanjun]

在一个文本框里要求用户输入数字，不能输入字母，但是别的功能键要可以用，如删除，回车等。
本人用的是

if keyascii<ASC("0")or keyscii>ASC("9") then
keyascii="0"
end if

这样的语句，但是除了数字键外别的都不能用了，也不能用BACKSPACE键等，感觉这样很不好，但是要一个一个屏敝的话感觉也不好。

[cy_nwau]

x=chr(keyascii)
if instr("0123456789",x)<>0 then
keyascii=0
endif

[yoki]

IsNumeric 函数


返回 Boolean 值，指出表达式的运算结果是否为数。

语法

IsNumeric(expression)

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

说明

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

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

[xumanjun]

楼上的，那别的键怎么办？

[射天狼]

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0
End Sub

[xumanjun]

我是想在模块里面建一个函数，然后别的窗体中调用，因为要检查的地方太多了。