Macro to Selectively Import Fixed Length Data into Excel

I am attempting to modify VBA code from the following URL:

http://www.cpearson.com/excel/ImportingFixedWidth.aspx

The section of the code I want to modify is below dealing with importing selective text. The original function returned a "False" if the line contained a keyword specified in the Array function. I have reworked it so that it shows a "True" if the line contains a keyword specified in the Array function.

My only problem is that it only does it when the keyword appears in the beginning of the line, as it uses the "Left" operator in looking at line. How do I configure the function so that it returns a "True" if the keywords appears anywhere in the line? Thanks.

Please Login or Register  to view this content.

The problem I am have with this macro deals with your last statement "Partial word matches will yield a False e.g. CA will not match CAT."

Because the keyword is part of a larger string (line) with no spaces, it is not returning a "True" value. Can your macro be modified to give a "True" for partial results?

Actually, was able to figure it out using the code below:

Please Login or Register  to view this content.

Thanks for help..