对象变量或 with块变量未设置

  第一次执行 timer1.timerd的时候不出错 第二次eventIE_NavigateComplete  Call Timer1_Timer   到 wangye = doc.body.innerHtml 这句的时候就出错 对象变量或 with块变量未设置  求教   
Option Explicit
 Dim dWinFolder     As New ShellWindows
Dim WithEvents eventIE       As WebBrowser_V1
    
Private Sub eventIE_NavigateComplete(ByVal URL As String)
          Text1.Text = Text1.Text + Chr(13) + Chr(10) + URL
          Timer1.Enabled = True
          Call Timer1_Timer
End SubPrivate Sub Timer1_Timer()
          Dim objIE     As Object
          Dim doc As Object
          Dim wangye As String
          
'          On Error Resume Next
            
          For Each objIE In dWinFolder
                  If InStr(objIE.Document.Title, "xxx公司") <> 0 And objIE.ReadyState = READYSTATE_COMPLETE Then
                          Set eventIE = objIE
                          Set doc = objIE.Document
                           
                          Print objIE.Document.Title
                          wangye = ""
                          wangye = doc.body.innerHtml      ' 第一次执行 timer1.timerd的时候不出错 第二次eventIE_NavigateComplete Call Timer1_Timer   到这句的时候就出错 对象变量或 with块变量未设置  求教                        
                          Text2.Text = ""
                          Text2.Text = wangye
                          Timer1.Enabled = False
                          Exit For
                  End If
          Next
End Sub