Option Explicit

'-- Класс InternetExplorerWithEvents
Public WithEvents IE As InternetExplorer

Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'-- Событие DocumentComplete, свидетельствующее,
'-- что страница загружена полностью

Debug.Print "Document Complete, URL = " & URL

'-- Вызов обработчика документа
DocumentComlete URL

End Sub

Public gobjWithEvents As Object
Public gblnInternetExplorerIsOpen As Boolean
Public gstrURL As String

Public Sub InternetExplorerOpen(blnSilent As Boolean, _
                        blnVisible As Boolean)
'-- Процедура запускает новый Internet Explorer,
'-- создает и иннициализирует глобальный объект
'-- Internet Explorer With Events,
'-- инициализирует глобальную переменную
'-- gblnInternetExplorerIsOpen для контроля
'-- открытого состояния InternetExplorer

Dim objIE As New InternetExplorer

If blnSilent Then
   '-- Проверка режима Offline
   If (objIE.Offline = True) Then
      gblnInternetExplorerIsOpen = False
      Exit Sub
   End If
   '-- Отключение диалогов
   objIE.Silent = True
Else
   '-- Включение диалогов
   objIE.Silent = False
End If

'-- Включение видимости
If blnVisible Then objIE.Visible = True

'-- Создается глобальный объект IE With Events
'-- и связывается с реально открытым экземпляром IE
Set gobjWithEvents = New InternetExplorerWithEvents
Set gobjWithEvents.IE = objIE
Set objIE = Nothing

gblnInternetExplorerIsOpen = True

End Sub

Sub proba()
InternetExplorerOpen True, True
End Sub