Filbehandling hvor filer samles i en fil

Mon der sidder en som kan gennemskue min kode. Jeg er lidt blank på kodning. Det var meningen at jeg skulle udsøge nogle tekst-filer som ligger i et katalog samt nogle underkataloger.Teksten fra alle filer skulle skrives over i en samlefil.
Min kode: håber på lidt hjælp
Private Sub CommandButton1_Click()
Dim linier
Set fs = Application.FileSearch
With fs
    .LookIn = "D:\huset"
    .SearchSubFolders = True
    .FileName = "tekst**.txt"
    If .Execute(SortBy:=msoSortByFileName, _
    SortOrder:=msoSortOrderAscending) > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
            " file(s) found."
        For i = 1 To .FoundFiles.Count
            j = .FoundFiles(i)
             
   
    Open j For Input As #1
    Open "D:\huset\samlefil.txt" For Output As #2
    Do While Not EOF(1)
    Line Input #1, linier
   
    Print #2, linier
   
    Loop
    Close #1
    Close #2         
           
          FreeFile           

        Next i
       
       
    Else
        MsgBox "There were no files found."
    End If
End With

End Sub