下記「やりたいこと」のようにhtmlから抽出したいのですが、
下記「前提」があって、どうしたらいいのか分かりません。
なにか方法ありますでしょうか？

--- やりたいこと ---
下記htmlにおいて、"ヘッダ"のすぐ次に存在しているtableタグ内の項目1,2、要素1,2を取得したい

--- 前提 ---
①"ヘッダ"は特定できる
②tableは特定できない
　・tableのidや要素から特定できない
　・tableの数から特定できない（取得したいtableが何個目なのか分からない）

--- html例 ---
　・・・
<h2>ヘッダ</h2>
<table>
<tr><th>項目1</th><th>項目2</th></tr>
<tr><td>要素1</td><td>要素2</td></tr>
</table>
　・・・

--- プログラム例（Microsoft Internet Controls、Microsoft HTML Object Libraryは参照設定済み） ---
Dim objIE As New InternetExplorer
objIE.Navigate "http://***";
Do While objIE.Busy = True Or objIE.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
For Each obj In objIE.Document.getElementsByTagName("h2")
If InStr(obj.innerText, "ヘッダ") > 0 Then　　ヘッダは見つけることができるが、この後どうしたらいいのか・・・
End If
Next obj