Option Explicit
Private WithEvents WB As WebBrowser

Private Sub UserForm_Activate()
  Set WB = Me.Controls.Add("Shell.Explorer.2")
  WB.Navigate "file:///C:/Users/Acer/Desktop/Сайт/Главная страница.htm"
End Sub

Private Sub WB_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    Dim htmlDoc As MSHTML.HTMLDocument
    Set htmlDoc = pDisp.Document    
    ...
End Sub

Option Explicit

Sub Procedure_1()

Dim cantrol As Control
Dim Broser As Object
 
Set cantrol = UserForm2.Controls.Add("Shell.Explorer.2", "WebBroser")
Set Broser = cantrol.Object

cantrol.Navigate "file:///C:/Users/Acer/Desktop/Сайт/Главная страница.htm"

...

UserForm2.Controls.Remove "WebBroser"
End Sub

<div class="results-frame"> 
  <table class="list border">
      <tbody>
        <tr>
         ...
        </tr>
        <tr class=" ">
          ...
        </tr>
        <tr class="even ">
          ...
       </tr>
       <tr class=" ">
          ...
       </tr>      
    </tbody>
  </table>
</div>

Option Explicit
Private WithEvents WB As WebBrowser

Private Sub UserForm_Activate()
    Set WB = Me.Controls.Add("Shell.Explorer.2")
    'WB.Navigate "view-source:https://www.vestidos.ru/pages/size_table.php"
    WB.Navigate "http://www.segment.ru/analytics/obzor_otrasli_ryinok_kantselyarskih_tovarov_i_ofisnoy_bumagi_istochnik_rbk/"
End Sub

Private Sub WB_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    Dim htmlDoc As MSHTML.HTMLDocument
    Set htmlDoc = pDisp.Document
    
    Dim htmlDoc2 As MSHTML.IHTMLElementCollection
    Set htmlDoc2 = htmlDoc.getElementsByTagName("table")
End Sub

Option Explicit
Sub GetHTMLDocument2()

Dim IE As New SHDocVw.InternetExplorer
Dim HTMLDoc As MSHTML.HTMLDocument
Dim HTMLInput_keyword, HTMLInput_Forum As MSHTML.IHTMLElement
Dim HTMLButton As MSHTML.IHTMLElement

IE.Visible = True
IE.Navigate "https://www.sql.ru/forum/afsearch.aspx?s=&submit=%CD%E0%E9%F2%E8&bid=-3"

Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop

Set HTMLDoc = IE.Document

Set HTMLInput_keyword = HTMLDoc.getElementById("searchQuery")
HTMLInput_keyword.Value = "Парсинг"

Set HTMLInput_Forum = HTMLDoc.getElementById("ComboForums")(52)
'HTMLInput_Forum.Value = "Microsoft Office"
HTMLInput_Forum.Click

Set HTMLButton = HTMLDoc.getElementById("content-wrapper-forum").Children(0).Children(0).Children(1).Children(0).Children(2)
HTMLButton.Click

End Sub