Search for and extract word from a cell

How would you write VBA code that would search a cell (containing words and numbers) for a particular word, pull that word out of the cell and place it into the next column over?

Example:

Cell contains the string "Happy New Year 2008 Be safe and have fun 03010"

How would I pull out the word "Year" and put it into the next column and leave everything else in the cell?

Thanks!