Private WithEvents iexxx As InternetExplorer
 
 
Public Sub OpenIe(URL As String)
 
  Debug.Print "OpenIe"
 
  Set iexxx = CreateObject("InternetExplorer.Application.1")
  iexxx.FullScreen = False
  iexxx.MenuBar = True
  iexxx.AddressBar = True
  iexxx.ToolBar = True
  iexxx.Visible = True
  iexxx.Navigate URL
End Sub
 
 
Private Sub iexxx_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
  Debug.Print "navigatecomplete"
End Sub
 
 
Private Sub iexxx_OnQuit()
  Set iexxx = Nothing
  Debug.Print "Quit"
End Sub