Скачиваю страничку через WinHTTP, но там проблема с кодировкой

http.Open "POST", "http://" & site & "/index.php"
http.SetRequestHeader "USER-AGENT", "User-Agent: Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.9.168 Version/11.51"
'http.SetRequestHeader "Accept-Encoding", "gzip, deflate"
'http.SetRequestHeader "Accept-Charset", "windows-1251,utf-8;q=0.7,*;q=0.7"
'http.SetRequestHeader "Accept-Language", "ru,en-us;q=0.7,en;q=0.3"
http.SetRequestHeader "Referer", "http://" & site & "/"
http.SetRequestHeader "Cache-Control", "no-cache"
http.SetRequestHeader "Keep-Alive", "300"
http.SetRequestHeader "Connection", "Keep-Alive"
http.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
http.Send

kisslinka.ru

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
    'example by Matthew Gates (Puff0rz@hotmail.com)
    DownloadFile "http://kisslinka.ru/index.php", "c:\kisslinka.htm"
End Sub

Declare Function MultiByteToWideChar& Lib "kernel32" (ByVal CodePage As Long, _
            ByVal dwFlags As Long, _
            ByVal lpMultiByteStr As String, _
            ByVal cchMultiByte As Long, _
            ByVal lpWideCharStr As String, _
            ByVal cchWideChar As Long)
 
Declare Function WideCharToMultiByte& Lib "kernel32" (ByVal CodePage As Long, _
            ByVal dwFlags As Long, _
            ByVal lpWideCharStr As String, _
            ByVal cchWideChar As Long, _
            ByVal lpMultiByteStr As String, _
            ByVal cchMultiByte As Long, _
            ByVal lpDefaultChar As String, _
            ByVal lpUsedDefaultChar As Long)
 
' MBCS and Unicode Translation Flags.
 
Public Const MB_PRECOMPOSED = &H1 ' use precomposed chars
Public Const MB_COMPOSITE = &H2 ' use composite chars
Public Const MB_USEGLYPHCHARS = &H4 ' use glyph chars, not ctrl chars
 
' в форму
'Text1.Text = Convert(Text1.Text, 866, 1251) 'dos->win
'Text1.Text = Convert(Text1.Text, 1251, 866) 'win->dos
'Text1.Text = Convert(Text1.Text, 28595, 1251) 'iso->win
'Text1.Text = Convert(Text1.Text, 1251, 28595) 'win->iso
'Text1.Text = Convert(Text1.Text, 20866, 1251) 'koi8r->win
'Text1.Text = Convert(Text1.Text, 20866, 1251) 'win->koi8r
 
 
Public Function Convert(ByVal strSrc As String, ByVal nFromCP As Long, ByVal nToCP As Long) As String
Dim nLen As Long
Dim strDst As String
Dim strRet As String
Dim nRet As Long
nLen = Len(strSrc)
strDst = String(nLen * 2, Chr(0))
strRet = String(nLen * 2, Chr(0))
nRet = MultiByteToWideChar(nFromCP, MB_PRECOMPOSED, strSrc, nLen, strDst, nLen)
nRet = WideCharToMultiByte(nToCP, 0, strDst, nRet, strRet, nLen * 2, ByVal 0, 0)
Convert = Left(strRet, nRet)
End Function

' в форму
'Text1.Text = Convert(Text1.Text, 866, 1251) 'dos->win
'Text1.Text = Convert(Text1.Text, 1251, 866) 'win->dos
'Text1.Text = Convert(Text1.Text, 28595, 1251) 'iso->win
'Text1.Text = Convert(Text1.Text, 1251, 28595) 'win->iso
'Text1.Text = Convert(Text1.Text, 20866, 1251) 'koi8r->win
'Text1.Text = Convert(Text1.Text, 20866, 1251) 'win->koi8r