WORDGET

Returns the nth element of a string that uses a separator character.
For instructions on how to add a function to a workbook refer to the page under Inserting Functions

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