Dim sHTML As String
Dim tmp, i As Long

'переменые требуют подключения Microsoft HTML Objects
Dim eIE As Object 'Internet excplorer
Dim eDoc As MSHTML.IHTMLDocument 'веб-станица
Dim eColl1 As MSHTML.IHTMLElementCollection 'коллекция элементов (источник)
Dim eItem1  As MSHTML.IHTMLElement 'элемент коллекции
Dim eItem2  As MSHTML.IHTMLElement 'элемент коллекции

'работаем с браузером (поверить активен ли
Set oIE = CreateObject("InternetExplorer.Application") 'запускаем explorer
oIE.Visible = HTML_BROWSER_VISIBLE 'видимость explorer - 0-скрыть 1-показать
oIE.Navigate (HTML_BEOWSER_ADDRESS01) 'загружаем сайт гугл
Do While oIE.busy Or (oIE.ReadyState <> 4): DoEvents: Loop 'ждем загрузку


Set eDoc = oIE.document 'выбираем все данные
Set eColl1 = eDoc.getElementsByTagName("Input") ' выбираем все поля ввода
''' вводим поисковый запрос
''' поиск поля для запроса "q" в именах node 'hl 'Source 'biw 'bih 'q 'btnG 'btnI 'gbv 'oq 'gs_l
For Each eItem1 In eColl1
    If eItem1.Name = "q" Then 'поле для ввода поискового запроса
        eItem1.Value = sQwery
        eItem1.Click
        Exit For
        End If
Next
'Application.Wait Time:=Now + TimeValue("0:00:02")
Do While oIE.busy Or (oIE.ReadyState <> 4): DoEvents: Loop 'ждем загрузку
'Stop

Set eDoc = oIE.document 'выбираем все данные
Set eColl1 = eDoc.getElementsByTagName("Input") ' выбираем все поля ввода
''' нажимаем копку 'Найти'
''' поиск кнопки 'Найти' btnG в именах node 'hl 'Source 'biw 'bih 'q 'btnG 'btnI 'gbv 'oq 'gs_l
Set eItem1 = Nothing
For Each eItem1 In eColl1
    'Debug.Print eItem1.Name 'btnG - кнопка найти
    If eItem1.Name = "btnG" Or eItem1.Name = "btnK" Then ' в разных версиях explor-а разны имена для кнопки найти
        eItem1.Click
        Exit For
        End If
Next
Do While oIE.busy Or (oIE.ReadyState <> 4): DoEvents: Loop 'ждем загрузку
Application.Wait Time:=Now + TimeValue("0:00:02") 'без паузы не успевает обновлять докумнет объекта IE
Stop