Code:
Text1.text = Webbrowser1.Document.documentElement.innerHTML
Unfortunately, it doesn't put the <html></html> tags in, but you can do it yourself.

Code:
Text1.text = "<HTML>" & Chr$(13) & Chr$(10) & Webbrowser1.Document.documentElement.innerHTML & Chr$(13) & Chr$(10) & "</HTML>"