Set myObject = CreateObject("InternetExplorer.Application")
WScript.Sleep 5000
myObject.Navigate "www.yahoo.com"
myObject.Visible = True

WScript.Sleep 5000


mstop = Msgbox (" Close this screen ? "& vbcrlf, 308,"  Mac Address Finder")
if mstop = "6" then
  myObject.Quit
else
  
end if