请有“检测文本框中输入的是否为数字的类模块”，请提供一个，谢谢！

Private Sub Command1_Click()
If IsNumeric(Text1.Text) Then
MsgBox "是数字"
Else
MsgBox "不是数字"
End If
End Sub

没看贴就跟了啊,哈哈

不就是写一个判断一个字符串是否为数字的方法
然后复制到类模块就行了.

咋调用?

实例化类.
再调用类的public方法

能不能给个例子传上来?

添加一个类模块.名为Class1
代码:
Option Explicit

Public Function isDigst(str As String) As Boolean
If IsNumeric(str) Then
isDigst = True
Else
isDigst = False
End If
End Function

回到Form1,添加一个CommandButton
代码:
Option Explicit
Dim clsDig As New Class1

Private Sub Command1_Click()
Dim s As String
Dim b As Boolean
s = "1253"
b = clsDig.isDigst(s)
If b Then
MsgBox s & "数字"
Else
MsgBox s & "非数字"
End If

s = "a12"
b = clsDig.isDigst(s)
If b Then
MsgBox s & "数字"
Else
MsgBox s & "非数字"
End If
End Sub

我要实现的功能:
在窗体Form1中的Text1中输入数字能直接显示(即ascii>47 and ascii <58),否则keyascii=0

用类该怎么实现?

请指教!