First, this is my first post. I am in trouble and need help (isnt that always the case?)

I have 1000 lines in excel I need to go in and extract the 5th and 6th word within the text string.

Example
A Cell
1 Agent Summary: 20089: After Bill Willamson March 233 XRay
2 Agent Summary: 18977: After Randy Wi April 299 NA
3 Agent Summary: 122: REN Sue Nel October REACH NA

I googled what I was needing and found something I thought I could cut and past. Its giving me a error: "Compile Error, Expected Text or Binary"

I copied the UDF from http://www.ozgrid.com/News/jul-2005.htm

this is just a snap shot of what was copied - not all.

Option Compare TextFunction Get_Word(text_string As String, nth_word) As StringDim lWordCount As Long With Application



Any help would be much appreciated!

thank you