I've managed to figure out how to do this. To avoid emails from others seeking a solution in the future, here's what I did:
' instantiate Browser Class
Dim ie As SHDocVw.InternetExplorerClass
ie = New SHDocVw.InternetExplorerClass()
' open browser window
Dim wb As IWebBrowserApp
wb = CType(ie, IWebBrowserApp)
' create an object so it can be referenced below for whatever reason
Dim ob As Object
ob = New Object()
' navigates to the specified URL
wb.Navigate(URLText, ob, ob, ob, ob)
' instantiating pointer to html document in browser
Dim htmlHTML As IHTMLDocument2 ' doesn't work for IHTMLDocument
htmlHTML = wb.Document
' and FINALLY you can get the HTML code
strHTML = UCase(htmlHTML.body.innerHTML)
|