creo que lo más fácil sería poner un FileListBox, darle el path de los archivos txt, ir abriendo cada archivo y en una variable guardar el texto
Dim Texto As String
Dim NuevoTexto As String
Dim F As Long
'aqui le pones el directorio
File1.Path = "c:\..."
File1.Pattern = "*.txt"
For i = 1 To File1.ListCount
'Abres los archivos uno por uno
F = FreeFile
Open File1.List(i) For Input As #F
Input #F, Texto
Close #F
' vas juntando el texto en esta variable
NuevoTexto = NuevoTexto & Texto & vbCrLf
Next i
'y luego pues ya nadamás guardas el nuevo archivo
F = FreeFile
Open "c:\...\nuevo_archivo.txt" For Input As #F
Write #F, NuevoTexto
Close #F
espero te sirva de algo este ejemplo