How to find and replace a word in a sentence with VBA

Hi you all
I have a table where I have two columns and in one of them there are names and in the other there should be numbers. The problem is that in the name column there are sometimes just the last name and sometimes the full name including title. I want to enter a specified number in column 2 if the name in column 1 contains "Moore". That would include Mr Simon Moore or Moore or MR Moore or Simon Moore.
I know it is possible, but I think I was sick the day we learned how to do it. Can you please help.
Gunilla