Dim ie As New SHDocVw.InternetExplorer
 
        ie.Navigate2("http://www.vbarchiv.net/forum/id10_i44726t44715.html")
        While ie.ReadyState <> SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE
            System.Threading.Thread.Sleep(100)
            Application.DoEvents()
        End While
 
        Dim doc As mshtml.IHTMLDocument2 = ie.Document
        Dim elem As mshtml.IHTMLElement
        elem = doc.all.tags("HTML")(0)
        Debug.WriteLine(elem.outerHTML)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist