请大侠帮我将这个模块做个示例，谢谢！

123shusheng

Public Function NumberGet(chkStr As String) As String
'从字符串中提取数字
    Dim i As Integer
    For i = 1 To Len(chkStr)
        If Mid(chkStr, i, 1) Like "[0-9]" Then
            NumberGet = NumberGet & Mid(chkStr, i, 1)
        End If
    Next i
    NumberGet = NumberGet
End Function


论坛里这个模块对我比较有用，请哪位大侠帮我做个例子，我是菜鸟，只会依葫芦画瓢！

123shusheng

自己研究出来了，SELECT 表1.编号, 表1.字段1, 表1.字段2, NumberGet([字段2]) AS 数值 FROM 表1;