MSHTML.IHTMLWindow2

UserForm1.frm

Option Explicit

'要参照設定
'Microsoft HTML Object Library

Private WithEvents m_Doc As MSHTML.HTMLDocument
Private p As MSHTML.IHTMLWindow2
Private flg As Boolean

Private Sub UserForm_Initialize()

    flg = False
    Set m_Doc = New MSHTML.HTMLDocument
    Set p = m_Doc.parentWindow
    p.navigate "http://www.yahoo.co.jp/"

    Do
        DoEvents
    Loop Until flg
    MsgBox m_Doc.URL


End Sub

Private Sub m_Doc_onreadystatechange()

    If flg Then Exit Sub
    If m_Doc.readyState = "complete" Then
        flg = True
    End If

End Sub