[5分]如何提取字符趾的数字或小数

Function ExtractAlphanumeric(strText As String) As String
    Dim lngI As Long
    Dim strChar As String
    Dim strTemp As String
    For lngI = 1 To Len(strText)
        strChar = Mid$(strText, lngI, 1)
        If strChar Like "[.0-9]" Then
            strTemp = strTemp & strChar
        End If
    Next
    ExtractAlphanumeric = strTemp
End Function