VB6 webbrowser erro não é possível obter a propriedade outerhtml

Question

Eu tenho o antigo programa foi criado VB6 e tudo estava funcionando bem, Eu estou usando o controle de navegador da web para carregar uma página da web e, em seguida, obter o html dentro de uma cadeia, recentemente recebi o abaixo mensagem de erro quando tentei carregar o código HTML para uma variável de seqüência de caracteres, que acontecem com grande apenas páginas.

Meu código como abaixo

Dim html As String
Private Sub GetHtm_Click()
   WebBrowser1.Navigate (webVar)
   Do
        DoEvents
    Loop Until Not WebBrowser1.Busy
    html = WebBrowser1.Document.documentElement.outerHTML
End Sub

Answer 1

WebBrowser1.Document.documentElement.outerHTML só funciona em DocumentComplete Eventos.

Private Sub WebBrowser1_DocumentComplete()

  html = WebBrowser1.Document.documentElement.outerHTML

End Sub