VBSの質問です a.html *********************** <html><body><table> <tr> <td>hogegehogehoge</td> <td>gehogeoj</td> <td>banana</td> </tr> <tr> <td>hogegehogehoge</t…

VBSの質問です
a.html
***********************
<html><body><table>
<tr>
<td>hogegehogehoge</td>
<td>gehogeoj</td>
<td>banana</td>
</tr>
<tr>
<td>hogegehogehoge</td>
<td>gehogeoj</td>
<td>sakana</td>
</tr>
<tr>
<td>hogehogehohoge</td>
<td>hogehogehogehoge</td>
<td>mikan</td>
</tr>
<tr>
<td>hogehogehohoge</td>
<td>hogehogehogehoge</td>
<td>mikan</td>
</tr>
</TABLE></body></html>
***********************
というﾌｧｲﾙがあるのですが
これを各<tr></tr>の最後の<td></td>内をﾌｧｲﾙ名として以下のように
banana.html
***********************
<html><body><table>
<tr>
<td>hogegehogehoge</td>
<td>gehogeoj</td>
<td>banana</td>
</tr>
</TABLE></body></html>
***********************

sakana.html
***********************
<html><body><table>
<tr>
<td>hogegehogehoge</td>
<td>gehogeoj</td>
<td>sakana</td>
</tr>
</TABLE></body></html>
***********************

mikan.html
***********************
<html><body><table>
<tr>
<td>hogehogehohoge</td>
<td>hogehogehogehoge</td>
<td>mikan</td>
</tr>
<tr>
<td>hogehogehohoge</td>
<td>hogehogehogehoge</td>
<td>mikan</td>
</tr>
</TABLE></body></html>
***********************
のように分けたいんですが
どのようなｽｸﾘﾌﾟﾄを組めばいいでしょうか？
表の列数は行数は変化します

Dim objFile  ' 対象ﾌｧｲﾙ
Dim objFile2 ' 出力ﾌｧｲﾙ
Dim objFSO ' ﾌｧｲﾙｼｽﾃﾑｵﾌﾞｼﾞｪｸﾄ
Dim k
Dim tb()
Dim tb2()

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("a.html")
k=0
Do Until objFile.AtEndOfLine = True
strText = objFile.ReadLine
k=k+1
redim Preserve tb(k)
tb(k)=strText
if instr(strText,"</tr>") > 0 then
a=instr(tb(k-1),"<td>")
b=instr(a+1,tb(k-1),"</td>")
c = mid(tb(k-1),a+4,b-5)
Set objFile2 = objFSO.CreateTextFile(c & ".html")
d=1
if tb(1)="<html><body><table>" then d=2
objFile2.WriteLine("<html><body><table>")
for a=d to k
objFile2.WriteLine ( tb(a) )
next
objFile2.WriteLine("</TABLE></body></html>")
objFile2.Close
k=0
redim tb(1)
end if

Loop
objFile.Close

>各<tr></tr>の最後の<td></td>内をﾌｧｲﾙ名
この場合､

<tr>
<td>hogehogehohoge</td>
<td>hogehogehogehoge</td>
<td>mikan</td>
</tr>
<tr>
<td>hogehogehohoge</td>
<td>hogehogehogehoge</td>
<td>mikan</td>
</tr>

だとそれぞれ二つに分かれてしまうと思われますが､
これがひとつになる条件は何があるのでしょうか？