Dim IE, STC
STC = False
Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_")
IE.Visible = True
IE.Navigate ("http://script-coding.com/")
WScript.Sleep 10000
STC = True

While STC = True
    WScript.Sleep 200
Wend

MsgBox ("Форум")
IE.Quit
Wscript.Quit

Sub IE_StatusTextChange(ByVal sText)

    If STC = True Then
        If sText = "http://forum.script-coding.com/" Then
            STC = False
        Else
            Exit Sub
        End If
    End If
    
End Sub

Sub IE_OnQuit()
    MsgBox ("Quit")
    WScript.Quit
End Sub