close and open again internet explore

Dear Exprt,

I trying to develop script to open and close after sometime IE and again open back

Set Web = CreateObject("InternetExplorer.Application")
Sub Item_Open()
   Web.Visible = True
   'Web.FullScreen = True
End Sub
 
Item_Open()
 
Do While True
 Web.Navigate "http://www.intranet.mycompany.com"

 WScript.Sleep 300000

        Set objShell = CreateObject("Wscript.Shell")

        objCommand = "taskkill /F /IM iexplore.exe /T"
         objShell.Run(objCommand)
 
Loop

Support@Mytechnet.me