VB6网络浏览器错误可以'；无法获取outerhtml属性

我有一个旧程序是用VB6创建的，它运行得很好， 我正在使用web浏览器控件加载网页，然后将html放入字符串中，最近我在尝试将html代码加载到字符串变量时收到以下错误消息，这种情况仅发生在大页面上

我的代码如下

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

---

WebBrowser1.Document.documentElement.outerHTML

仅在

DocumentComplete

事件中工作

Private Sub WebBrowser1_DocumentComplete()

  html = WebBrowser1.Document.documentElement.outerHTML

End Sub

---

您需要将html=outerhtml放在WebBrowser1_DocumentComplete事件中。我已经在几个项目中使用了此方法（上面的代码），并且它工作正常，但它仅在我打开webbrowser中的一个大html页面时出现，这可能是内存问题？