Extract last word from a string and next to last word and so on.

These are two examples of the strings. The back end is consistent. Price is last, Quantity of Contracts is 4th to last, Date is 5th to the last. I need to pull each item seperatley and plug into another location as individual text.

The beginning portion description can be a various number of words, so need to start at the last.

3.5% FO Fob Rdam Bgs Oct13 6 Contracts @ 592.00
3.0% FO GC Mar14 100 Contracts @ 93.75

Used this Function to get last but can't figure how to get next to last and so on.

Function ReturnLastWord(The_Text As String)

Dim stGotIt As String


stGotIt = StrReverse(The_Text)

stGotIt = Left(stGotIt, InStr(1, stGotIt, " ", vbTextCompare))



ReturnLastWord = StrReverse(Trim(stGotIt))

End Function


Thanks,
Jim