'Бравзер
Public IE( 9 ) As Object
Public PIG_IEViknoStatus( 9 ) As Boolean ' Статус. Открытое окно
'Создание окна IE
Public Sub PIG_VklIE(Nomr As Long, Vsbl As Boolean)
    Set IE(Nomr) = CreateObject("InternetExplorer.Application")
    IE(Nomr).Visible = Vsbl
    PIG_IEViknoStatus(Nomr) = True
End Sub
'Переход по URL
Public Sub PIG_IE_Navigate(Nomr As Long, Adres As String)
    'If PIG_IEViknoStatus(Nomr) = False Then Exit Sub
    IE(Nomr).navigate Adres
End Sub
'Опрос статуса
Public Function PIG_IE_readyState(Nomr As Long) As Long
  PIG_IE_readyState = IE(Nomr).readyState
End Function
'Чтение данных
Public Function PIG_IE_innerHTML(Nomr As Long) As String
  PIG_IE_innerHTML = IE(Nomr).Document.documentElement.innerHTML
End Function