Code:
Private Sub WEB-BROWSER-NAME-HERE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Select Case iCase
Case 1
sHtml = WEB-BROWSER-NAME-HERE.document.All.Item(0).innerHTML
iCase = 0
End Select
End Sub Put that any where & put
Code:
Dim sHtml As String
in the declarations
And use it!