IE11を起動させるvbs

Option Explicit

Dim IE
Set IE = WScript.CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "https://hp.vector.co.jp/authors/VA004037/"
Do While IE.Busy
    WScript.Sleep 100
Loop
Set IE = Nothing