Option Explicit
Sub GetHTMLDocument2()

Dim IE As New SHDocVw.InternetExplorer
Dim HTMLDoc As MSHTML.HTMLDocument
Dim HTMLElem As Object 'MSHTML.DispHTMLElementCollection

IE.Visible = True
IE.Navigate "https://www.sql.ru/forum/....."

Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop

Set HTMLDoc = IE.Document

Set HTMLElem = HTMLDoc.getElementsByTagName("a")

Dim Array_ref() As String
Dim mark As Boolean '&#206;&#242;&#236;&#229;&#242;&#234;&#224;, &#247;&#242;&#238; &#226; &#242;&#229;&#227;&#229; <a> &#241;&#238;&#228;&#229;&#240;&#230;&#232;&#242;&#241;&#255; &#242;&#229;&#234;&#241;&#242; "&#241;&#234;&#224;&#247;&#224;&#242;&#252;"
Dim k As Integer ' &#209;&#247;&#229;&#242;&#247;&#232;&#234; &#237;&#224;&#233;&#228;&#229;&#237;&#237;&#251;&#245; &#241;&#241;&#251;&#235;&#238;&#234;, &#227;&#228;&#229; &#239;&#240;&#232;&#241;&#243;&#242;&#241;&#226;&#243;&#229;&#242; "&#241;&#234;&#224;&#247;&#224;&#242;&#252;"
k = 0
Dim i As Long
Dim elem As Object

For i = 0 To HTMLElem.Length - 1
    mark = False
    For Each elem In HTMLElem(i).Children
        If elem.outerText = "c&#234;&#224;&#247;&#224;&#242;&#252;" Then
            mark = True
        End If
    Next
    
    If mark = True Then
        k = k + 1
        ReDim Preserve Array_ref(1 To k)
        Array_ref(k) = HTMLElem(i)       
    End If
Next i
End Sub