WORDGET

WORDGET(sText, n, separator)
Returns the nth element of a string that uses a separator character.

REMARKS
??

Public Function WORDGET( _ 
         ByVal sText As String _ 
         ByVal n As ?, _ 
         ByVal Separator As ?) _ 
         As String 

   WORDGET = Split(Application.Trim(Txt), Separator)(n - 1) 
End Function 

For instructions on how to add this function to a workbook refer to the page under Inserting Functions