Hi AlanRCo,

One thing that you should be concerned with when dealing with so many files is the number that you assign to the files. e.g.
Code:
Open "c:\windows\desktop\myfile.txt" For Input As #1
Close #1
You should use the Freefile function so that you don't have to keep track of all those file numbers. e.g.
Code:
Dim iFileNum As Integer

iFileNum = Freefile

Open "c:\windows\desktop\myfile.txt" For Input As #iFileNum
Close #iFileNum
I hope this helps.