я не знаю почему, но я решил с этим
Dim fs As Object, a As Object, s As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("e:\test.txt", True)
Dim x As String
a.WriteLine Replace(Replace(Replace(Http.responseText, ",", ""), vbLf, ""), vbCr, "")
Set a = Nothing
Set fs = Nothing
Open "e:\test.txt" For Input As #1
Input #1, x
oHTML.body.innerHTML = x
Close #1
Вероятно, это будет проблема кодирования o отформатированных. Мне пришлось создать файл и поместить в ответный текст как замененный ... с X = replace (бла-бла-бла) и o html .body.innerhtml = x проблема не решена. если у кого-то есть идея, то ...