Private Function FindFirstWord(ByVal MyString as String)
WordFoundFlag = 0
For i = 1 To Len(MyString)
    Char = Mid(MyString, i, 1)
    If Char Like "[A-Za-z-]" And WordFoundFlag = 0 Then
        WordFoundFlag = 1
        StartPos = i
    ElseIf Char Like "[!A-Za-z-]"And WordFoundFlag = 1 Then
        GoTo BYE
    End If
Next
BYE:
FindFirstWord = Mid(MyString, StartPos, i - StartPos)
End Function