Need List of Files Containing Specific Text

[mwyller]

I know this was posted some time ago, but I've tested it and it's working great.
I'm using it to search through excel files in a SharePoint folder.
What I need to do is loop at the strSearch for several different text strings.
I'm not sure how to have it loop at this point. Can you help please?

'Change as desired
    strPath = "c:\Users\My\Desktop"             '////////////////   <--- Change directory here  \\\\\\\\\\\\\\\\\\\\\\\\
    strSearch = "To"          '/////////////////    <--- Change term to search for here     \\\\\\\\\\\\\\\\\\\\\\\

Sincerely,
Mike