VBでのContinueが間違っているとき

質問

http://oshiete1.goo.ne.jp/qa4564345.htmlではありがとうございました。
教わったことを参考にやってみたのですがうまくいきません。
Continueの部分がうまくいくPCといかないPCがあるのでどうしたらいいか分からなくなってしまいました・・・

Option Explicit

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

strURL = "http://www.yahoo.co.jp/"
strURL2 = "http://www.google.co.jp/"
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

回答No.1

noname#259269 · ベストアンサー

いや、ですから、Continue という構文は VBScript にはないんですってば(^^;

http://oshiete1.goo.ne.jp/qa4564345.html

でNo.1さんが回答されてますよね。それ以外にも

http://oshiete1.goo.ne.jp/qa4561965.html

でも同じ回答を得られていますよね。意味が判りません(^^;

For ... To ...
Do '← Exit Do を使うためのダミー Loop
　If ... Then
　　Exit Do '←これが Continue の代わりになる
　End If
Loop Until True '← Exit Do を使うためのダミー Loop
Next

このように For ～ Next の内側にダミーの Do ～ Loop を設けて、そこから抜けるようにすれば、同等処理が可能です。
(上記コードは全角空白でインデントしてます。)