El error de WebBrowser de VB6 no puede obtener una propiedad de OuterHTML

Question

Tengo un programa antiguo fue creado por VB6 y estaba funcionando bien, Estoy usando el control del navegador web para cargar una página web, luego obtener el HTML dentro de una cadena, recientemente recibí el siguiente mensaje de error cuando intenté cargar el código HTML en una variable de cadena, solo sucede con las páginas grandes.

mi código como abajo

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 solo funciona en eventos DocumentComplete.

Private Sub WebBrowser1_DocumentComplete()

  html = WebBrowser1.Document.documentElement.outerHTML

End Sub