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

Open "c:\...\nuevo_archivo.txt" For Output As #F