Error al cargar el XML

   Buenos días y saludos a todos, soy nueva por aquí.Tengo un problema al leer un archivo xml, el mensaje de error es : No es posible pasar de la codificación actual a la especificada.

El archivo xml contiene la respuesta que recibo de web server y que guardo de la siguiente manera :

Contenido = objWinHttp.ResponseText

' Guardar respuesta
  file = VBA.FreeFile
        Open Archivo For Binary Access Write As #file
        ' Comprueba que se puede escribir sin problema
        Close #file
        ' Contenido = req.ResponseBody
        Open Archivo For Binary Access Write As #file
        Put #file, , Contenido
  Close #file

¿Cómo puedo arreglar el archivo para poder ser leido?

Gracias a todos de antemano.