' Display Data in a New Window
Sub RunScript
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.ToolBar = 0
objIE.StatusBar = 0
Set objDoc = objIE.Document.Body
strHTML = "<B>This information is displayed in a separate window.</B>"
objDoc.InnerHTML = strHTML
objIE.Visible = True
End Sub