現行のEdgeさん

Module1.bas

Option Explicit
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub hoge()
     Dim doc As Object
     Set doc = CreateObject("htmlfile")

    With doc
        .parentWindow.navigate "https://www.yahoo.co.jp/"
        While .readystate <> "complete"
            DoEvents
            Sleep 1&
        Wend
        Debug.Print doc Is Nothing
    End With
End Sub