動的html？の値取得について

Message#1 2018年5月23日(水)20時41分
From: こばこば

下記のようなコードを作成したのですが・・・（パクリばかりですが）
getElementsByClassName("state2")(0)で値取得を試みているのですが
うまく取得できず、LOOP処理が抜けられないことがあります。
※値取得出来る場合と出来ない場合があります。
出来ない場合はLOOPから抜けられません。
どうにかして、安定してgetElementsByClassName("state2")(0)の値を取得したいのですが、うまくいきません。
何か良い方法がございましたら、ご教示頂けませんでしょうか。
本当に困っているので宜しくお願いします。
※ちなみにIEのバージョンは１１です。

Dim st As String
Dim objIE As Object

Set objIE = CreateObject("InternetExplorer.application")

objIE.Visible = True

objIE.Navigate "http://k2k.sagawa-exp.co.jp/p/sagawa/web/okurijoinput.jsp"

Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop

objIE.document.forms(0).Item("main:no1").Value = Cells(1, 1)

objIE.document.forms(0).Item("main:toiStart").Click

Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop

Do
DoEvents
Loop Until (TypeName(objIE.document.getElementsByClassName("state2")(0)) <> "Nothing")

st = objIE.document.getElementsByClassName("state2")(0).innerText

MsgBox st

objIE.Quit
Set objIE = Nothing

MsgBox "完了"