'功能:从字符串中取出夹杂的数字
Function Num(Exp As String) As Double
    Dim lntI As Long
    Dim strWord As String

    For lntI = 1 To Len(Exp)
        strWord = Mid(Exp, lntI, 1)
            If strWord Like "[0-9]" Then
                Num = Num & strWord
            End If
    Next

End Function