画面移動が完了するのを待つ

画面が切り替わる際は↓のコードを適宜入れる。

＜サンプル＞
'EADYSTATEがCOMPLETEになるまで待つ
    Dim ie As InternetExplorer
   
    Do While ie.Busy Or ie.readyState < READYSTATE_COMPLETE
        DoEvents
    Loop