Не получается с кодировкой - VB

Public Function WinHTTPRequestGET(ByVal URL As String, Cookie As Boolean, CookieURL As String, Refer As String) As String
  Dim objWinHttp As WinHttp.WinHttpRequest
  Dim f As Long
    DoEvents
    Set objWinHttp = New WinHttp.WinHttpRequest
    objWinHttp.SetTimeouts 30, 30, 0, 0
    objWinHttp.open "GET", URL, False
    objWinHttp.setRequestHeader "User-Agent", "Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.10.229 Version/11.61"
    objWinHttp.setRequestHeader "Accept", "text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/webp, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1"
    objWinHttp.setRequestHeader "Accept-Language", "ru-RU,ru;q=0.9,en;q=0.8"
    objWinHttp.setRequestHeader "Accept-Encoding", "default"
    objWinHttp.setRequestHeader "Accept-Charset", "Windows-1251"
    objWinHttp.setRequestHeader "Connection", "Keep-Alive"
    objWinHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    
    If Refer <> "" Then objWinHttp.setRequestHeader "Referer", Refer
    If Cookie = True Then If ProcesGetCookie(CookieURL) <> "" Then objWinHttp.setRequestHeader "Cookie", ProcesGetCookie(CookieURL)
    objWinHttp.send
    WinHTTPRequestGET = objWinHttp.responseText
    Set objWinHttp = Nothing
End Function

Public Function ConvertToWinTxt(ByVal Txt As String) As String
  ConvertToWinTxt = Txt
  
  ConvertToWinTxt = Replace(ConvertToWinTxt, Chr(65), "В")
  ConvertToWinTxt = Replace(ConvertToWinTxt, Chr(63), "І")
  ConvertToWinTxt = Replace(ConvertToWinTxt, Chr(73), "Н")
  ConvertToWinTxt = Replace(ConvertToWinTxt, Chr(69), "И")
  ConvertToWinTxt = Replace(ConvertToWinTxt, Chr(79), "Ц")
  ConvertToWinTxt = Replace(ConvertToWinTxt, Chr(85), "Ь")
  ConvertToWinTxt = Replace(ConvertToWinTxt, Chr(69), "К")

End Function