请教objIE.FullName这句为什么一直都不能通过呢?

[yunok]

这是一段取得所有IE窗口标题和地址的代码,但是objIE.FullName这个好像有问题,请教如何解决?

Option Explicit
Dim WithEvents objIEMain As WebBrowser_V1
Dim objIE As Object
Dim dWinFolder As New ShellWindows


Private Sub Command1_Click()

If InStr(1, objIE.FullName, "IEXPLORE", vbTextCompare) <> 0 Then
For Each objIE In dWinFolder
List1.AddItem objIE.Document.Title
List2.AddItem objIE.LocationURL
Next
End If
End Sub

[weesky]

If InStr(1, objIE.FullName, "IEXPLORE", vbTextCompare) <> 0 Then还没得到值
顺序写反了