VBScriptでIEを探す処理をして指定したサイトがあれば処理を終了させたいのですがうまくいきません。どなたかいい方法を教えていただけないでしょうか？

Dim ObjIE
Dim ObjShell
Dim ObjWindow
Dim WinExist
Dim strURL

strURL = " ;

WinExist = False
Set ObjShell = CreateObject("Shell.Application")
For Each ObjWindow In ObjShell.Windows
If TypeName(ObjWindow.Document) = "HTMLDocument" Then
WinExist = True
Set ObjIE = ObjWindow
End If
MsgBox ObjIE.LocationURL
If ObjIE.LocationURL <> strURL
msgbox "開いてない"
Call SHORI_strat()
Else
msgbox "開いている"
Call WriteEndLog()
End If
Next
・
・
・
・
もしヤフーのサイトが開いていなければ色々処理を行い、開いていればログに既に開いていることをログに書いて終了させたいのですがデスクトップにいろんなページを開いてあった場合繰り返してしまいなかなか終わりません。

あまり賢いやり方ではないと思うのでいい方法に直したいです。
１．最初にヤフーがあるかどうかをまず調べる。
２．開いていなければ処理を行い終わった時点で全て終了。
３．もし開いていればログを書いて終了としたいのです。

今は無駄に繰り絵してしまっているのでいい方法は無いですか？

If TypeName(ObjWindow.Document) = "HTMLDocument" Then

でＩＥが起動しているかどうか調べているんでしょうから、

MsgBox ObjIE.LocationURL
If ObjIE.LocationURL <> strURL

以下の部分も最初のＩＦに含めておかないとおかしいんじゃないでしょうか。

あと、

msgbox "開いている"

のブロックでは、探していたページが見つかったので、（処理後）For ループを抜けるべきでは？

For をループの途中で抜けるには、

Exit For

とします。
単にそのまま終了して良いなら
（終了前の後処理をして）

WScript.Quit(0)

※０は、終了コード、正常終了を表す、０の場合省略できる