間違っているVBのContinueの件で書き込みをしたのですが何故か消えてしまったので再度書きます。

教わったことを参考にやってみたのですがうまくいきません。
Continueの部分がうまくいくPCといかないPCがあるのでどうしたらいいか分からなくなってしまいました・・・

Option Explicit

Dim objIE
Dim objShell
Dim objWindow
Dim WinExist
Dim strURL
Dim strURL2
Dim Flug

strURL = " ;
strURL2 = " ;
WinExist = False

Set objShell = CreateObject("Shell.Application")
For Each objWindow In objShell.Windows
If TypeName(objWindow.Document) <> "HTMLDocument" Then
？？？？？
Continue
？？？？？
End If

WinExist = True
Set objIE = objWindow

If objIE.LocationURL = strURL Then
Flug = True
Exit For
End If
Next

If Flug = True Then
msgbox "ヤフー存在"
Else
msgbox "別の処理を行なう"
If WinExist = False Then 'IEが無い場合 起動する
Set objIE = WScript.CreateObject("InternetExplorer.Application")
objIE.Navigate strURL2
objIE.Visible = True
Set objIE = Nothing
End If
End If