Private WithEvents IE As SHDocVw.InternetExplorer

Private WithEvents IEDoc As MSHTML.HTMLDocument

 

Private Sub Form_Initialize()

    CreateIE True

End Sub

 

Private Sub CreateIE(fVisible As Boolean)

    Set IE = Nothing

    Set IE = CreateObject("InternetExplorer.Application")

    fIE_Open = True

    IE.Toolbar = False

    IE.Silent = True

    Form_Resize

    IE.Visible = fVisible

    

End Sub

Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)

    

    PageHTML = LCase(IE.document.body.innerHTML)

…

End Sub