Textdatei mit mehr als 65000 Einträgen

Sub einlesen()
Dim a As Long, tmp As String
With Application.FileSearch
.LookIn = "c:\test" 'hier musst du den Ordner mit den Texten rein
.FileType = msoFileTypeAllFiles
.SearchSubFolders = True
.Execute
End With
Open "c:\zusammen.txt" For Output As #1 'Hier die Zieldatei ändern
For a = 1 To Application.FileSearch.FoundFiles.Count
Open Application.FileSearch.FoundFiles.Item(a) For Input As #2
Line Input #2, tmp
Print #1, tmp
Close (2)
Next a
Close (1)
End Sub