只允许text文本框输入数字的代码是什么啊？

有时候制作一些东西只允许输入数字就可以了，那样设置的代码是多少呀？

请赐教了。。。

[此贴子已经被作者于2007-7-18 23:21:24编辑过]

我这里也写出了一段代码
但是不允许删除啊？ 就是一旦输入就不允许修改
帮忙修改下。。。


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii<Asc("0") Or KeyAscii>Asc("9") Then
KeyAscii=0
End If
End Sub

谢谢了，受教。