Public Sub XMLtoTXT(xmlFileName As String, _
                    txtFileName As String)
   Dim Fsys As Scripting.FileSystemObject, WT As Scripting.TextStream
   Dim xmlDoc As DOMDocument
   Dim objectNodeList As IXMLDOMNodeList
   Dim objectNode As IXMLDOMElement
   Dim propertyNode As IXMLDOMElement
   Dim StrLn As String

   Set Fsys = New Scripting.FileSystemObject
   Set WT = Fsys.OpenTextFile(txtFileName, ForWriting, True)

   Set xmlDoc = New DOMDocument 'создание DOMDocument объекта
   xmlDoc.Load xmlFileName 'загрузка XML-файла

   Set objectNodeList = xmlDoc.documentElement.selectNodes("Worksheet") 'выбор узла с рабочим листом "Worksheet"
   If objectNodeList.Length > 0 Then
      Set objectNode = objectNodeList.Item(0).childNodes(0) 'выбор дочернего узла "Table"
      Set objectNodeList = objectNode.selectNodes("Row") 'выбор дочернего узла "Row"
      For Each objectNode In objectNodeList 'извлечение данных каждого узла Row_i и запись их в файл
        StrLn = ""
        For Each propertyNode In objectNode.selectNodes("*")
           StrLn = StrLn & propertyNode.Text & vbTab
           Debug.Print objectNode.nodeName & "   " & propertyNode.nodeName
        Next
        WT.WriteLine Mid(StrLn,  1 , Len(StrLn) -  1 )
      Next
   End If
   Set Fsys = Nothing
   Set WT = Nothing
   Set xmlDoc = Nothing
   Set objectNodeList = Nothing
   Set objectNode = Nothing
   Set propertyNode = Nothing
End Sub