response = .responseText

response = GetResponse(.ResponseBody, "utf-8")

Function GetResponse(ByRef BytesArr, ByVal Encoding$) As String
    On Error Resume Next
    Set ADODBStream = CreateObject("ADODB.Stream")
    With ADODBStream
        ResponseFilename$ = Environ("tmp") & "\response.txt"
        If Len(Encoding$) Then .Charset = Encoding$
        .Type = 1        ' adTypeBinary:
        .Open: .Write BytesArr
        .Position = 0
        .Type = 2        'adTypeText
        GetResponse = .ReadText
        .Close
    End With
    Set ADODBStream = Nothing
End Function