importing multiple csv files into single workbook

I changed this line strFileName = Dir(strDir & "*.csv")

to a .txt extension to import a folder full of txt files. It's only creating a new workbook but it comes out empty. Any help on why this doesn't work?

---------------------------------------------------------------------------------
DISREGARD. I got it to work; it was blocking the macro due to computer settings. thanks