Macro fails to import text files

The only reason I can think of is moving from Excel 2003 to 2007.

My macro imports text files based on certain criteria in a folder "_chr.txt", the macro runs through, show in a message box that x files were imported but nothing is there. I get a small, strange character in cell A1 (Upper left corner) and the entire row (A) is highlighted.

I cant figure out what needs to be modified, except maybe in my Function (ImportFile)?

Please Login or Register  to view this content.

Attached is a sample text file.
Imported as "comma delimited" (The only delimiter is "Tab"), inserted into Cell A1.

Any help, hints or tips are appreciated.

Added image to show cell A1 after running macros

Heres a little different approach

Please Login or Register  to view this content.

I hate you people and your simple solutions!

Thank you.

Originally Posted by mike7952

Heres a little different approach

Please Login or Register  to view this content.

I'm bringing up this older post because I am trying to utilize the code in Office365.
It fails at:

Please Login or Register  to view this content.

With "Run-time error '9': Subscript out of range

I want to read a text file:
3031879-001_-_Block Shaft Assy-Addendum_10-03-2023_Serial No._1_2023-10-05_9_30_59 AM_chr.txt
(Attached) and place the data on Sheet4.
(I will eventually be reading in many text files at once).

Any assistance is appreciated.