Отправка данных MSXML2.XMLHTTP ("POST@) и прием результатов - VB

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

Из приложения отправляю данные:

Dim fso  FileSystemObject
 fso = New Scripting.FileSystemObject
 f2 = fso.OpenTextFile(FileString0, ForReading)
rQuery = f2.ReadAll
f2.
 f2 = Nothing
 fso = Nothing
                Dim HttpReq  New MSXML2.XMLHTTP
                Dim 
                Dim xmldoc  New MSXML2.DOMDocument
                
                Call HttpReq.(, , )
                HttpReq.setRequestHeader , 
                HttpReq.setRequestHeader , 
                HttpReq.setRequestHeader , 
                HttpReq.setRequestHeader , CStr((rQuery))
                HttpReq.Send rQuery

ASP принимает данные:

a = Request.BinaryRead(Request.TotalBytes) 

 nIndex =   LenB(a) 
   PostData = PostData & Chr(AscB(MidB(a,nIndex,))) 

PostData - английские буквы принимает, а кирилица слетает. Иероглифы.
Помогите разобраться с этими гр..ми кодировками. Голова ходом уже.
Пробовал передавать данные с преобразованием кодировки при помощи ADODB.Stream. Все равно получает иероглифы.

Решение задачи: «Отправка данных MSXML2.XMLHTTP ("POST@) и прием результатов»

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

                            lngCount = Request.TotalBytes
<font color="blue">If</font> lngCount > <font color="darkblue"><b>0</b></font> <font color="blue">Then</font>
	<font color="blue">With</font> CreateObject(<font color="teal">"ADODB.Stream"</font>)
		.<font color="blue">Type</font> = <font color="darkblue"><b>1</b></font> <font color="00AA00">'adTypeBinary</font>
		.<font color="blue">Open</font>
		.<font color="blue">Write</font> Request.BinaryRead(lngCount)
		.Position = <font color="darkblue"><b>0</b></font>
		.<font color="blue">Type</font> = <font color="darkblue"><b>2</b></font> <font color="00AA00">'adTypeText</font>
		.Charset = <font color="teal">"windows-1251"</font> <font color="00AA00">'Кодировка XML - <!--?xml version=<font color="teal"-->"1.0"</font> encoding=<font color="teal">"windows-1251"</font>?>
		Response.<font color="blue">Write</font> .ReadText
		.<font color="blue">Close</font>
	<font color="blue">End</font> <font color="blue">With</font>
<font color="blue">End</font> <font color="blue">If</font>

                        