文本筐中只能输入数字,怎么做?正则判断吗?

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

正则表达式我没有学过...

恩
是个方法
谢谢了