VB6でのデータの編集（ファイル処理）

VB６でのプログラムについて質問させていただきます．
テキストファイル(.txt)に添付画像のような内容が入っています．

このテキストファイルをキーワード分のテキストファイルに分割したいです．　
キーワードとは画像の場合，「りんご」，「みかん」，「ぶどう」以上の三つとなります．（「：」の改行前の単語）
それら三つをタイトルとしたテキストファイルを生成し，（タイトルが数十個ある場合もあります）
その中身にそれぞれのキーワードの下の行を編集したものを出力したいです．

「りんごの場合」　ブラジル1302.6585フランス1081.1385・・・の部分を
-------------------------------------------------
（りんど.tet内に）
ブラジル　1302.6585
フランス　1081.1385
・
・
・　　（この単語と数値のセットは30個以内です）
・
・
---------------------------------------------------
とそれぞれのセットを改行して出力したいです．

元データの単語（ブラジル）と数値（1302.6585）の間，また数値と次の単語（フランス）間はそれぞれタブで間が開いています．
また，出力の際も単語（ブラジル）と数値（1302.6585）の間はタブで間を空けたいです．

宜しくお願いいたします．

No.1 回答者： n-jun 回答日時： 2012/12/24 10:54

読み込む・書き込むフォルダが”Ｃ：”であるとして。

Dim a, b, v
Dim i As Integer

Open "C:\abc.txt" For Input As #1

Do Until EOF(1)
Line Input #1, a
If Len(a) < 1 Then Exit Do
Line Input #1, b

a = Replace(a, "：", "")
v = Split(b, vbTab)

Open "C:\" & a & ".txt" For Append As #2

Print #2, a

For i = LBound(v) To UBound(v) Step 2
Print #2, v(i) & vbTab & v(i + 1)
Next

Close #2

Loop

Close #1

こんな感じですかね？