Прочесть содержимое WEB-страницы - VB

Public Sub F1()
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