为什么小弟我用这段代码打开百度新闻的内容链接，第一次能弹出，而第二次就不可以弹出

为什么我用这段代码打开百度新闻的内容链接，第一次能弹出，而第二次就不可以弹出？
这里就是代码，要运行先要引用HTML object library和internet control
Option Explicit
  Dim SWs As New SHDocVw.ShellWindows
  Dim IE As SHDocVw.InternetExplorer
  Dim Doc As Object
 
   
  Private Sub Command1_Click()
  On Error Resume Next
  Dim i As Integer
  For Each IE In SWs
  Set Doc = IE.document
  If TypeOf Doc Is HTMLDocument Then
  If Doc.url = "http://news.baidu.com/" Then
  If Doc.All.tags("A").length <> 0 Then
  For i = 0 To Doc.All.tags("A").length - 1
  If Doc.All.tags("A")(i).innerText = "美国将为*升级爱国者导弹 费用达11亿美元(图)" Then '这里设置要点击的网页链接的文本内容，百度新闻网页内的一个新闻内容链接
  Doc.All.tags("A")(i).Click
  End If
  Next
  End If
  End If
  End If
  Next
  Set Doc = Nothing
  End Sub


------解决方案--------------------
第二次已经没有http://news.baidu.com/这个页面了
------解决方案--------------------
Set Doc = Nothing 
你清空了