<input type="button" id="refresh" value="Обновить" title="Обновить данные на страничке" />

' Объявление переменных 
Private WithEvents objWin As MSHTML.HTMLWindow2 ' окно ИЕ
Private WithEvents objExplorer As SHDocVw.InternetExplorer 
Private WithEvents objDoc As MSHTML.HTMLDocument ' документ ИЕ
Private WithEvents objRefresh As MSHTML.HTMLButtonElement ' кнопка, события которой нужно обрабатывать

' стартуем ИЕ
    Set objExplorer = CreateObject("InternetExplorer.Application")
    With objExplorer
        .Navigate "about:blank" ' адрес странички
        .Visible = 1
        ' и прочие параметры окна, вроде ширины, высоты, статусбара и т.п.
    End With

' Ждем окончания инициализации ИЕ
    Do While (objExplorer.Busy)
    Loop

' Создание документа
    With objExplorer.Document
        .Open
        .writeln html ' записываем хтмл в документ ИЕ
        .Close
        Set objWin = .parentWindow
    End With
      
    Set objDoc = objExplorer.Document
 
' Если не ошибаюсь, тут ожидание окончания рендеринга страницы
    Do While (objExplorer.Busy)
    Loop


' А вот и сама кнопка из хтмл-документа, получена по id
    Set objRefresh = objDoc.getElementById("refresh")

Private Function objRefresh_onclick() As Boolean
  ' тут делаем чего надо
End Function

    objExplorer.Quit ' завершение ИЕ
    Set objRefresh = Nothing
    Set objDoc = Nothing
    Set objWin = Nothing
    Set objExplorer = Nothing