CSVの出力（1行を3行に出力～）

質問

テキスト式1行
200705 00001 A01 A02 B01 B02 C01 C02があるとします。
200705と00001は3行の先頭を出したいので、どうやってループさせたらいいのかわからないのです。
今の状況
Private Sub Object(lFname As String, lOFilename As String)
Dim IUO As Variant ''出力データ
Dim lFBnt As Long ''開始位置１
Dim m_Input As String ''レコード退避先データ
Dim byteInput() As Byte ''領域確保変数
Dim fs As Object ''ファイルシステムオブジェクト
Dim ObjOutFile As Object ''出力先ファイルオブジェクト''
IUO = ""
''出力先ファイルオブジェクトの作成
Set fs = CreateObject("Scripting.FileSystemObject")
''出力先ファイル名の指定
Set ObjOutFile = fs.CreateTextFile(lOFilename, True)
ReDim byteInput(レコードの長さ- 1)
''正常ファイル時のファイルオープン
Open lFname For Binary As #1

'' ファイルの終端までループを繰り返します。
Do While Loc(1) < LOF(1)
IUO= ""
''該当行のレコードデータの取得
Get #1, , byteInput
m_Input = StrConv(byteInput, vbUnicode)
lFBnt = 1
IUO = IUO + Chr(39) & MidMbcs(m_InputBuffer, lFBnt, 一つ目のパラメータ名) + Chr(39)
lFBnt = lFBnt + 一つ目のパラメータ名

IUO = IUO + vbNewLine ''改行
''ファイルへの書込
ObjOutFile.Write (IUO)
Me.Refresh
Loop

Close #1
''File close
ObjOutFile.Close
Set ObjOutFile = Nothing
End Sub
以上では1行しか出力できないのですが、どうやったら3行出力できるのでしょうか。
よろしくおねがいします。

回答No.1

loop_dog

>200705 00001 A01 A02 B01 B02 C01 C02
>200705と00001は3行の先頭を出したいので
が、よく意味が分かりません。＜特に『３行の先頭』

データ加工の仕様というのはどんな感じなんでしょうか？

200705,00001,A01,A02,B01,B02,C01,C02
にしたいのではなくて、
例えば、

200705
00001
A01

というようにしたいということですか？