макрос, извлекающий значения из документа *.xml

[Molotoklk]

код частично работает на xml, вот только походу у них бывает разная структура, на некоторых файлах он не работает, видимо потому что некоторые теги в xml заполнены в атрибутах. для примера прикладываю файл с последним вариантом макроса последний вариант и xml-файл, из которого он не может вытащить нужное значение CadastralNumber (для этого файла оно должно соответствует 61:15:0601701:1278) подскажите как с атрибутов вытащить это, в xml этот атрибут помещен в теге parsels

[doober]

Private Sub CommandButton1_Click()
Dim sXpath As String
 sXpath = "//Parcel"
 sFile = "C:\doc6043466.xml"

  With CreateObject("MSXML2.DOMDocument")
   .Load sFile
 Read_t = .DocumentElement.SelectNodes(sXpath)(0).Attributes(0).NodeValue
  End With
  MsgBox Read_t
End Sub

[Molotoklk]

Спасибо, это работает!!!! а как это вставить в основной код?

[DUG82]

Подскажите, не могу заставить работать макрос, не хватает знаний.
Беру тот же файл, что описывался выше, но мне нужно чтобы поиск происходил не в открываемом файле, а с листа 3. Пишет ошибку. Что еще нужно поменять в коде?