VB封装提取字符串中数字的DLL文件

'///////////////////////////////////////////////////////// '功能：VB封装ActiveX dll示例程序 '作者：hautbbs HautRen '日期：2011-08-20 18:30 '版权：河南工业大学信息网版权所有，改编不究，但请保留此项。 '更多：http://www.hautbbs.com.cn '///////////////////////////////////////////////////////// PrintNumeric.dll 源代码： 工程名：getNumeric Dim resultString As String Public Function getNumeric(origionString As String) As String For i = 1 To Len(origionString) '判断是否为0到9字符,是则赋值输出 If Mid(origionString, i, 1) Like "[0-9]" Then resultString = resultString & Mid(origionString, i, 1) End If Next getNumeric = resultString End Function 测试DLL.exe 源代码： 工程名：测试DLL Private Sub Command1_Click() Dim a As PrintNumeric Dim b As String Set a = New PrintNumeric b = a.getNumeric(Text1) MsgBox "提取到的数字为：" & b End Sub