Find Property of Worksheet Function Class

Within a For Each loop, I am using the WorksheetFunction.Find to locate a specific string in another string.
The find works on iteration 1 and 2 but on third gets:


Run-Time Error 1004 ... Unable to get the Find property of the WorksheetFunction class.

Here is the code:

Please Login or Register  to view this content.

The Value of MySubject when the failure occurs is:

PHP Code: 

Dan Blum- Enjoy clear, simple pricing from the trusted name in online payments. 


What am I doing on the first or second loop iteration to cause this?

I am running on Office 10 on Windows 7

The overall code is part of prototyping to see if I can add some text to specific emails (that have a keyword in the subject line) in my inbox. It works until the third email in the inbox.

Thanks for any help!

Please Login or Register  to view this content.

WorksheetFunctions cause errors when they return an error value.

Please Login or Register  to view this content.

Edit: I like shg's InStr as a better solution.