Прочесть Web-страницу методом GET (или POST) - VB

Формулировка задачи:

Как прочесть страницу https:// методом GET или POST? Для конкретной страницы нижеприведенный пример не работает:

                    Листинг программы
                
 
                        
                          
                    
Public Sub FF1()
    Dim req As Object
    'Set req = CreateObject("MSXML2.XMLHTTP")
    Set req = New msxml2.XMLHTTP60
    req.Open "GET", "https://www.olx.ua/obyavlenie/sdam-v-krivom-roge-1kom-na-173kv-IDuC1BV.html#dc13508123", False
    req.Send
    If Not req.Status = 200 Then Exit Sub
    
    Dim L As Long
    L = Len(req.responseText)
    MsgBox Mid(req.responseText, 1, 1000)
    Set req = Nothing
End Sub

Выдает ошибку

Решение задачи: «Прочесть Web-страницу методом GET (или POST)»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Public Sub RP(strURL As String, qq As String)
Dim url, ss As Variant, n As Integer, ier As Integer
 
url = strURL
Set IE = Nothing
n = 1
10:
Set IE = CreateObject("InternetExplorer.Application"): ' ????????? ??????? Internet Explorer
IE.Visible = True
 
IE.Navigate1 url: Задержка_секунд (5) ' Функция задержки
IE.Visible = True
 
While IE.Busy Or (IE.readyState <> 4)
    DoEvents
Wend 
ss = IE.Document.getElementsByClassName("link spoiler small nowrap")
Задержка_секунд (5)
 ss.Click: Задержка_секунд (2)
 ss = IE.Document.getElementsByClassName("fnormal xx-large")
 Задержка_секунд (1)
 qq = ss.outerHTML: Задержка_секунд (2)
 
IE.Quit
Set IE = Nothing
End Sub