=myget(字符串,1)   '取出中文字符

=myget(字符串,2)   '取出英文字母

=myget(字符串,0)       '取出數(shù)字

取出數(shù)字第2個參數(shù)可以省略，=myget(字符串)

Function MyGet(Srg As String, Optional n As Integer = False)

    Dim i As Integer

    Dim s, MyString As String

    Dim Bol As Boolean

    For i = 1 To Len(Srg)

        s = Mid(Srg, i, 1)

        If n = 1 Then

            Bol = Asc(s) < 0

        ElseIf n = 2 Then

            Bol = s Like "[a-z,A-Z]"

        ElseIf n = 0 Then

            Bol = s Like "#"

        End If

        If Bol Then MyString = MyString & s

    Next

    MyGet = IIf(n = 1 Or n = 2, MyString, Val(MyString))

End Function