VBA. web-запрос. проблема с кодировкой.

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

делаю web-запрос в excel

Sheets().Activate
     ActiveSheet.QueryTables.Add(Connection:= _
        v_url, Destination:=Range(v_start_range))
        . = 
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = True
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
     

и получаю данные типа:
РќР° РіР»Р°РІРЅСѓСЋ
подскажите пожалуйста что и где поправить/добавить, чтобы получить данные в правильной кодировке?
meta с сайта

< http-equiv= content=>

хотя браузер отмечает, что там UTF8

Решение задачи: «VBA. web-запрос. проблема с кодировкой.»

textual
                            Листинг программы 
                        

                            <font color="blue">Public</font> <font color="blue">Function</font> encode_string(<font color="blue">ByRef</font> v_in_str <font color="blue">As</font> <font color="blue">String</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р°"</font>, <font color="teal">"а"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р±"</font>, <font color="teal">"б"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"РІ"</font>, <font color="teal">"в"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Рі"</font>, <font color="teal">"г"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Рґ"</font>, <font color="teal">"д"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Рµ"</font>, <font color="teal">"е"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"С‘"</font>, <font color="teal">"ё"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р¶"</font>, <font color="teal">"ж"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р·"</font>, <font color="teal">"з"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Рё"</font>, <font color="teal">"и"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р№"</font>, <font color="teal">"й"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Рє"</font>, <font color="teal">"к"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р»"</font>, <font color="teal">"л"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Рј"</font>, <font color="teal">"м"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"РЅ"</font>, <font color="teal">"н"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Рѕ"</font>, <font color="teal">"о"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Рї"</font>, <font color="teal">"п"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"СЂ"</font>, <font color="teal">"р"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"СЃ"</font>, <font color="teal">"с"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"С‚"</font>, <font color="teal">"т"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Сѓ"</font>, <font color="teal">"у"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"С„"</font>, <font color="teal">"ф"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"С…"</font>, <font color="teal">"х"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"С†"</font>, <font color="teal">"ц"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"С‡"</font>, <font color="teal">"ч"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"С€"</font>, <font color="teal">"ш"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"С‰"</font>, <font color="teal">"щ"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"СЊ"</font>, <font color="teal">"ь"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"С‹"</font>, <font color="teal">"ы"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"СЉ"</font>, <font color="teal">"ъ"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"СЌ"</font>, <font color="teal">"э"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"СЋ"</font>, <font color="teal">"ю"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"СЏ"</font>, <font color="teal">"я"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Рђ"</font>, <font color="teal">"А"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р‘"</font>, <font color="teal">"Б"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р’"</font>, <font color="teal">"В"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р“"</font>, <font color="teal">"Г"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р”"</font>, <font color="teal">"Д"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р•"</font>, <font color="teal">"Е"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"РЃ"</font>, <font color="teal">"Ё"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р–"</font>, <font color="teal">"Ж"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р—"</font>, <font color="teal">"З"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р˜"</font>, <font color="teal">"И"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р™"</font>, <font color="teal">"Й"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Рљ"</font>, <font color="teal">"К"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р›"</font>, <font color="teal">"Л"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Рњ"</font>, <font color="teal">"М"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Рќ"</font>, <font color="teal">"Н"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Рћ"</font>, <font color="teal">"О"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Рџ"</font>, <font color="teal">"П"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р "</font>, <font color="teal">"Р"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"РЎ"</font>, <font color="teal">"С"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Рў"</font>, <font color="teal">"Т"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"РЈ"</font>, <font color="teal">"У"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р¤"</font>, <font color="teal">"Ф"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"РҐ"</font>, <font color="teal">"Х"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р¦"</font>, <font color="teal">"Ц"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р§"</font>, <font color="teal">"Ч"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"РЁ"</font>, <font color="teal">"Ш"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р©"</font>, <font color="teal">"Щ"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р¬"</font>, <font color="teal">"Ь"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р«"</font>, <font color="teal">"Ы"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"РЄ"</font>, <font color="teal">"Ъ"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р­"</font>, <font color="teal">"Э"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"Р®"</font>, <font color="teal">"Ю"</font>)
    v_in_str = Replace(v_in_str, <font color="teal">"РЇ"</font>, <font color="teal">"Я"</font>)
    encode_string = v_in_str
<font color="blue">End</font> <font color="blue">Function</font>

                        