Помогите Очень срочно

Для запроса наименования банка по БИК
использую такой код

Dim strData As String
Dim strResponse As String
Dim objHTTP As Object
Dim strpost As String
strData = "postparam=postval&postparam2=postval2"

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objHTTP.Open "post", "http://www.bik-info.ru/api.html?type=xml&bik=046014327", False
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.send strData
strResponse = objHTTP.responseText
'обработка строки strResponse 

но ответ приходит кракозябрами.
на сайте написано www.bik-info.ru:
В формате XML: http://www.bik-info.ru/api.html?type=xml&bik=НОМЕР_БИК (Кодировка Windows-1251)
как исправить помогите очень надо и очень срочно. Нужно делать платежки а наименование банка не получается узнать.

*\/*#*,

Dim strData As String
Dim strResponse As String
Dim objHTTP As Object
Dim strpost As String
strData = "postparam=postval&postparam2=postval2"

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objHTTP.Open "post", "http://www.bik-info.ru/api.html?type=xml&bik=046014327", False
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.setRequestHeader "Accept-Charset", "Windows-1251" 'Попробуйте так
objHTTP.send strData
strResponse = objHTTP.responseText
'обработка строки strResponse

Agapov_stas,

не помогло,
теже самые кракозябры и при присоединении .dbf файлов

*\/*#*,

17807383

Найти в реестре: ...\JET\4.0\Engines\Xbase "DataCodePage"=OEM и поменять на "DataCodePage"=ANSI

2993,

Спасибо использовал код по ссылке. Все работает на ура. Еще раз спасибо.