<TH><TD>でセルを分ける

Question

前提・実現したいこと

ExcelVBAでxmlデータの読み込みを作成しています
ワークシートの各セルに<TH><TD>の値を読込したいのですが
下記コードでは１行にまとめて表示されてしまいます

発生している問題・エラーメッセージ

Set cnode = XMLDocument.SelectSingleNode("//Table[2]")        
j = 0
For Each dnode In cnode.getElementsByTagName("TR")
    ReDim Preserve str(j)
    str(j) = dnode.Text
    Debug.Print j, str(j)
    b = ws1.Range("A65536").End(xlUp).Row
    ws1.Cells(b + 1, 1) = str(j)
    j = j + 1
Next

該当のソースコード

-<Table>
-<TR>

<TH>111111 </TH> <TD>22222 </TD> <TD>33333 </TD> <TD>4444444</TD> <TD>ああああああああああ</TD> <TD>5</TD> <TD>4月 7日 </TD> <TD/> <TD/> <TD>666</TD> </TR>

試したこと

上記コードで作成された１行データをsplit関数でセルに振り分けたのですが
スペースが間に入っているデータもありきれいに振り分けができませんでした

<TH><TD>で振り分けるコードを教えてください

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

VBAでXMLは扱ったことがないのですが、

For Each enode In dnode.ChildNodes

のようにして、上記enodeより<TH><TD>の要素を取り出せますか？