With brwInet
        brwInetWorking = True
        .Navigate2 path
 
        While brwInetWorking = True
            DoEvents
        Wend
 
        inetSourceCode = .Document.all(0).outerHTML
    End With

Private Sub brwInet_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    brwInetWorking = False
End Sub

"Live your life with arms wide open" - Natasha Bedingfield "Unwritten"