フォルダ内のテキストファイル₍拡張子はtxt₎をすべて、1つのエクセルシートにまとめたい

Question

前提・実現したいこと

VBA初心者です。

VBAで、フォルダ内にあるテキストファイルをすべて読みこんで、
1つのエクセルシートにまとめようとしています。

下記に読みこもうとしているテキストファイルのイメージを示します(テスト用）

• タブで区切られています
• 被験者の人数分あります(実際は30個ほど。テスト用としては3個作成)。
• 中身は、各ファイル1行でデータ数(列数)は固定です

(実際は41列ですが、テスト用のファイルは4列で作成）。

発生している問題・エラーメッセージ

フォルダ内の全てのファイルを読みこみたいのに
1つのファイルしか読みこめていない。
追記
自己解決しました

期待する実行結果

実際の実行結果
2行目・3行目にも同じデータを記述してしまっています。

Debug.printで見るとすべてのファイル名がでてくるのですが
実際に読みこんでいるのは、1つのファイルだけのようです。

追記　Debug.printでFilePathを調べたところ、変化していないことが分かりました。

該当のソースコード

Option Explicit

Sub Txt2Excel()

'    マージするテキストファイルを集めたフォルダーを指定
    Dim FileFolder As String
    FileFolder = ThisWorkbook.Path & "\txt"
     
    
'    そのフォルダー内のテキストファイルの名前を取得
    Dim FileName As String
    FileName = Dir(FileFolder & "*.txt ")
 
    Dim FilePath  As String
    FilePath = FileFolder & "\" & FileName
    
      Dim Buffer  As String　'一時的に文字列を格納する
      
      Dim A As Variant  '文字列格納用配列
      ReDim B(99, 99)  '文字列格納用配列
      Dim i As Long
      i = 0
      Dim j As Long
      j = 0
   
     

    '使用可能なファイル番号を取得
    Dim FileNumber      As Long
    FileNumber = FreeFile

    'フォルダ内のすべてのテキストファイルを処理する    
    Do Until FileName = ""
        Open FilePath For Input As #FileNumber
         Debug.Print FileName
       
                    
                Do While Not EOF(FileNumber)
                    Line Input #FileNumber, Buffer
                    Debug.Print Buffer
                    
                     A = Split(Buffer, vbTab)
                    For j = 0 To UBound(A)
                              B(i, j) = A(j)
                     Next j            
                      
                Loop
        
         Close #FileNumber
       
          FileName = Dir()
         i = i + 1
    Loop
    Range("A1").Resize(100, 100) = B
    MsgBox "処理が終了しました。", vbInformation
       
End Sub

**追記　**
以下のように変更すると、自己解決できました

  Open FilePath For Input As #FileNumber　　の部分を
　Open FileFolder & "\" & FileName For Input As #FileNumber　
に変更すると上手く行きました。

補足情報（FW/ツールのバージョンなど）

Answer 1

  Open FilePath For Input As #FileNumber　　の部分を
　Open FileFolder & "\" & FileName For Input As #FileNumber　
に変更すると上手く行きました。

お騒がせいたしました。

プログラム初心者です。
書き方の作法を間違っている点も多いと思います。
もっと良い方法や改善点があれば教えてください。