io ho usato:
Private Sub WB3_DownloadComplete()
Dim Risultato As String

On Error Resume Next
Risultato = WB3.Document.documentElement.innerTEXT
...