Private Function FindFirstNumAlpha(ByVal MyString as String)
NumFoundFlag = 0
For i = 1 To Len(MyString)
    Char = Mid(MyString, i, 1)
    If IsNumeric(Char) = True And NumFoundFlag = 0 Then
        NumFoundFlag = 1
        StartPos = i
    ElseIf (IsNumeric(Char) = False And Char <> "." And (Asc(Char) < 65 Or Asc(Char) > 90) And _
                (Asc(Char) < 97 Or Asc(Char) > 122)) And NumFoundFlag = 1 Then
        GoTo BYE
    End If
Next
BYE:
FindFirstNumAlpha = Mid(MyString, StartPos, i - StartPos)
End Function