ファイルの中身が↓のようになっている場合(タブ区切り)

さいたま さい川 たま夫
とうきょう ほげ川 ほげ子
おおさか おお山 さか美

DataFileBuf = FreeFile()
Open ActiveWorkbook.Path & "\" & DataFile For Input As #DataFileBuf

Do Until EOF(DataFileBuf)
Line Input #DataFileBuf, LineData
LineData2 = Split(LineData, vbTab)
Print #CsvFileMBuf, LineData2(0) & " " & LineData2(2) & " " & LineData2(5) & " " & LineData2(6)
Loop

↑のプログラムで、データファイルのEnd of Fileまでループさせるつもりが、
ファイル全体が１つのデータとして扱われてしまう為、１回のループで終わって
しまい、結果は↓のように出力されてしまいました

さいたま たま夫
とうきょう おお山 さか美


改行で１つのデータとして扱い、↑３件のデータが３回ループするように
コーディングしたいのですが、どのように変えたらよいでしょうか？

>>529
お答えありがとうございます。
せっかくお答えいただいたのですが、勘違いしてました。
(Split関数は問題ありませんでした。)