Need List of Files Containing Specific Text

[gmaxey]

What is the purpose of:

Dim fso as Object
Dim fld as Object
...
Set fso = CreateObject("Scripting.FileSystemObject") 
 Set fld = fso.GetFolder(strPath) 
...
Set fld = Nothing
Set fso = Nothing

Yes you loop through the files in a folder, but you do not loop through any files in any sub-folders of that folder.