Private WithEvents HTML As HTMLDocument
 
Private Sub Form_Load()
    Brw.Navigate2 "www.vbarchiv.net"
end sub
 
Private Sub Brw_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim ls_Source As String
    Set HTML = Brw.Document
    lf_Source = HTML.All(1).outerHTML
end sub

Real programmer do not comment their code;
what?s hard to write should be hard to read