Импорт XML, подписанного ЭЦП в VBA

[baza383]

Есть макрос, импортирующий файл XML в таблицу XLS.

Sub Импорт()
'
' Импорт Макрос
'

'
    ActiveWorkbook.XmlImport URL:="C:\данные.xml", ImportMap:=Nothing, _
        Overwrite:=True, Destination:=Range("$A$1")
End Sub

Файл данные.xml подписан электронно цифровой подписью. Из-за этого в конце кода файла появляются дополнительные символы. При его экспорте в xls, возникает ошибка:
Run-time error ' -2147217376 (80041020)
В текстовом комментарии обнаружен недопустимый знак.

Подскажите, пожалуйста, как можно обойти эту ошибку при этом, не меняя исходный xml файл?

[doober]

Можно так

Sub Импорт()
    Путь_К_Файлу = "C:\данные.xml"
    Dim oStream
    Dim S As String
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Type = 2
    oStream.Charset = "windows-1251"
    oStream.Open
    oStream.LoadFromFile Путь_К_Файлу
    S = oStream.ReadText
    oStream.Close
    Dim oFS: Set oFS = CreateObject("Scripting.FileSystemObject")
    If oFS.FileExists(Путь_К_Файлу) Then oFS.DeleteFile Путь_К_Файлу
    S = Split(S, "</СчетаПК>")(0) & "</СчетаПК>"
    oStream.Open
    oStream.WriteText S
    oStream.SaveToFile  Путь_К_Файлу
    oStream.Close

    ActiveWorkbook.XmlImport URL:=Путь_К_Файлу, ImportMap:=Nothing, _
                             Overwrite:=True, Destination:=Range("$A$1")
End Sub