Здравствуйте.
Функция возвращает HTML-текст страницы. Обработал кучу страниц, пока не наткнулся на одну, которая вместо текста на кириллице возвращает вот такую фигню: яяяяяяя яяя яяяяяяяя
Подскажете, как с этим бороться?

Public Function fncText_HTTP(strURL As String) As String                              'возвращает HTML-текст страницы
Dim oHttp1 As Object
On Error GoTo Ошибка
Set oHttp1 = CreateObject("MSXML2.XMLHTTP")
If Err.Number <> 0 Then
    Set oHttp1 = CreateObject("MSXML.XMLHTTPRequest")
End If
On Error GoTo 0
If oHttp1 Is Nothing Then
    MsgBox "Не удалось инициализировать объект MSXML!"
    Exit Function
End If
On Error GoTo Ошибка
oHttp1.Open "GET", strURL, True                                                       'true - асинхронный запуск
oHttp1.Send
    Do While oHttp1.ReadyState <> 4                                                   'ожидание ответа
        DoEvents
    Loop
fncTextHTTP = oHttp1.ResponseТекст
    Set oHttp1 = Nothing
Exit Function
Ошибка:                                                                               'Обработка ошибки
MsgBox Err.Description & "  " & Err.Number, , "Function fncText_HTTP"
Resume Next
End Function

https://www.sql.ru/forum/1306210/httprequest