Извлечение JGP из responsebody с помощью vb6

---

Привет, я использую удаленный веб-сервис, но не могу извлечь jpg-файл, содержащийся в ResponseBody. Я действительно сохраняю файл, но как я могу удалить заголовки Mime и т. д., чтобы я мог просмотреть изображение??
Вот мой код:

Что я уже пробовал:

Sub GetImg(ByVal strUrl As String, ByVal XmlBody As String)
Dim objDom As Object
Dim objXmlHttp As Object
Dim strRet As String
Dim aRes() As Byte, fn As Integer
    
    ' Create objects to DOMDocument and XMLHTTP
    Set objDom = CreateObject("MSXML2.DOMDocument")
    Set objXmlHttp = CreateObject("MSXML2.XMLHTTP")
    
    ' Load XML
    objDom.async = False
    objDom.loadXML XmlBody

    ' Open the webservice
    objXmlHttp.Open "POST", strUrl, False
    
    ' Create headings
    objXmlHttp.setRequestHeader "Content-Type", "image/jpeg"
    objXmlHttp.setRequestHeader "Content-Length", Len(XmlBody)
    
    ' Send XML command
    objXmlHttp.send objDom.xml

    ' Get all response text from webservice
    strRet = objXmlHttp.responseText

    ' Get image
    aRes = objXmlHttp.responseBody
    fn = FreeFile
    Open "a.jpg" For Binary As fn
    Put fn, , aRes
    Close fn

    ' Close objects
    Set objXmlHttp = Nothing
    Set objDom = Nothing 
    
End Sub

---