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