Удаление символов - VBA

Формулировка задачи:

Доброго дня. появилась такая проблемка: при выгрузке данных из Экселя в XML, в конце каждого выгруженного элемента появляются символы &#xA подскажите пожалуйста, как можно задать проверку строк в уже созданном файле, или может не пропускать, как-нибудь, сочетание этих символов) вот код выгрузки(использую карты XML):

                    Листинг программы
                
Sub Выгрузка_щелчок()
   
   Worksheets("Заказ").Range("G11:H11").Value = (Format(Now, "DD.MM.YYYY"))
   Worksheets("Заказ").Range("G11:H11").NumberFormat = "@"
   Cells(11, 7).Value2 = Replace(Cells(11, 7).Value2, ".", "/")
      
   j = 23
   
    For i = 8 To 1050
    cod = Cells(j, 8).Value2
    If (cod <> 0) Then
    Worksheets("Заказ").Cells(j, 9).Value = (Format(Now, "DD.MM.YYYY"))
    Worksheets("Заказ").Cells(j, 9).NumberFormat = "@"
    Cells(j, 9).Value2 = Replace(Cells(j, 9).Value2, ".", "/")
    
    End If
    j = j + 1
  
    Next i
    
    j1 = 23
    
    While Worksheets("Заказ").Cells(j1, 8).Value2 <> 0
 
    j1 = j1 + 1
     
 Wend
 
   j1 = j1 - 1
 
'Worksheets("Заказ").ListObjects("Список1").Resize Range(Cells(22, 5), Cells(j1, 9))
 ActiveWorkbook.XmlMaps("XML_Root_Карта").Export URL:="C:\0001.xml", overwrite:=True
 Columns("I:I").Hidden = True
 
End Sub

А в Итоге создаётся XML файл:

                    Листинг программы
                
 
                        
                          
                    
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<XML_Root>
    <Document_Root H000004="1" H000005="15/06/2016">
        <Sp_Root/>
        <Sp_Root S000004="123426&#xA;" S000005="Бан&#xA;" S000006="14&#xA;"/>
        <Sp_Root S000004="040083&#xA;" S000005="вед&#xA;" S000006="10&#xA;"/>
        <Sp_Root S000004="035178&#xA;" S000005="бан&#xA;" S000006="24&#xA;"/>
        <Sp_Root S000004="035261&#xA;" S000005="бан&#xA;" S000006="24&#xA;"/>
        <Sp_Root S000004="035182&#xA;" S000005="бан&#xA;" S000006="24&#xA;"/>
        <Sp_Root S000004="035225&#xA;" S000005="бан&#xA;" S000006="24&#xA;"/>
    </Document_Root>
</XML_Root>

узнал что набор этих символов обозначает Табуляцию в таблице. но как убирать эти символы так и не разобрался

Решение задачи: «Удаление символов »

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Изменяем_XML()
    '
    'by the Fever Brain
    '
    Dim FileXML$, GetXml$
    FileXML = "MyXML.xml" 'Здесь должон быть путь к файлу _
    по умолчанию это будет файл в открытой папке
 
    With CreateObject("scripting.filesystemobject")
        With .OpenTextFile(FileXML)
            GetXml = .ReadAll
        End With
        
        'Изменяем там чтото на тото
        GetXml = Replace(GetXml, "
", "")
        With .CreateTextFile(FileXML, True) 'True=Перезапись
            .Write GetXml 'Пишем туда
        End With
    End With
End Sub