vb中操作dom的问题,在线等

Option ExplicitPrivate Sub Form_Load()    Me.WebBrowser1.Navigate "http://218.80.221.114:8080/3a/servlet/EncryTokenServlet?UserID=ad123456789&Action=Login"End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)    Dim objDocument As IHTMLDocument2
    Dim objDom As DOMDocument
    Dim objNodeList As IXMLDOMNodeList
    Dim objElement As IHTMLElement
    Dim strString As String
    Dim fields As Integer
    
    Set objDocument = pDisp.Document
    strString = objDocument.documentElement.outerHTML
    Text1.Text = strString
    Set objDom = New DOMDocument
    objDom.loadXML strString
    Set objNodeList = objDom.getElementsByTagName("script")
    '错误行,就是没法给strString 赋值
    strString = objNodeList(0).Text
    
    
   
    
End Sub
哪位大哥帮我看看是怎么回事?