DataFileBufはタブ区切りの文字列です。

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

このようなデータを

Do While Not EOF(DataFileBuf)
Line Input #DataFileBuf, LineData
LineData2 = Split(LineData, vbTab)
Print #CsvFileMBuf, """" & LineData & """"
Print #CsvFileMBuf2, """" & LineData2(0) & """"
Loop

#CsvFileMBufは↓のように、うまく処理が行えるのですが、

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


Split関数をかませた#CsvFileMBuf2の結果は↓のように最初の一件しか
処理してくれません。

さいたま


Split関数をかませても最後までデータを処理してくれるようにするには
どのように書き換えたらよいでしょうか？