Excel VBA "MSXML2.XMLHTTP" 実行時エラー 424

Question

前提・実現したいこと

ExcelのVBAでhtmlの取得について
IEよりも速いとのことでやってみたのですが、実行すると実行時エラー '424' オブジェトが必要です。　で止まってしまいます。その後、デバックを押してそのまま実行するとエラーなく進みます。どうして最初の1回目はエラーが出るのでしょうか？
また、たまにエラーが出ずに進むことがあるのですが、セルに入力がされていないです。
IEのときはエラーなくできたのですがどうしてでしょうか。よろしくお願いいたします。

該当のソースコード

Dim a As String
Dim b As Long
Dim g As Variant

Dim objHtml As Object
Dim objDoc As Object 　　

　　a = "%E3%81%82"

Set objHtml = CreateObject("MSXML2.XMLHTTP")

objHtml.Open　"GET", "https://www.jreast-timetable.jp/cgi-bin/st_search.cgi?rosen=&token=&50on=" & a, False
objHtml.send

Do While objHtml.readyState <> 4
    DoEvents
Loop

Set objDoc = CreateObject("htmlfile")
objDoc.write(objHtml.responseText)

For Each g In objDoc.getElementsByTagName("tbody")(0).getElementsByTagName("tr")
Cells(b, 1) = g.innerText
b = b + 1
Next g

Answer 1

Do While objDoc.getElementsByTagName("tr").Length = 0
DoEvents
Loop

上記を追加し、

Sub テスト()
Dim a As String
Dim b As Long
Dim g As Variant

a = 0
b = 1

Dim objHtml As Object
Dim objDoc As Object

a = "%E3%81%82"

Set objHtml = CreateObject("MSXML2.XMLHTTP")

objHtml.Open "GET", "https://www.jreast-timetable.jp/cgi-bin/st_search.cgi?rosen=&token=&50on=" & a, False
objHtml.send

Do While objHtml.readyState <> 4
DoEvents
Loop

Set objDoc = CreateObject("htmlfile")
objDoc.write (objHtml.responseText)

Do While objDoc.getElementsByTagName("tr").Length = 0 '追加
DoEvents '追加
Loop '追加

For Each g In objDoc.getElementsByTagName("tbody")(0).getElementsByTagName("tr")
Cells(b, 1) = g.innerText
b = b + 1
Next g
End Sub

とすることで解決しました。

Answer 2

変数bが初期化されていないのが原因かと思います

b = 1 '初期化
For Each g In objDoc.getElementsByTagName("tbody")(0).getElementsByTagName("tr")
　Cells(b, 1) = g.innerText
　b = b + 1
Next g

Comments

[nullA]

すいません、bは初期化してます。
書き忘れてました。
For Each g In objDoc.getElementsByTagName("tbody")(0).getElementsByTagName("tr")
のところでエラーが出る状態です。