Как получить значение атрибута заданного узла в xml документе - VBA

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

Добрый день, всю голову сломал, второй день не могу найти как сделать подобное. Есть xml. В ней надо найти узел с атрибутом "Перекладниа 21" и в этом узле узнать значение value. Помогите пожалуйста. Вот xml

<?xml version="1.0" encoding="Windows-1251"?>
<DataGroupSystem>
    <Version major="1" minor="0"/>
    <Units master="mm" sub="mm"/>
    <CatalogItems>      
        <CatalogItem type="Slab" name="Перекладниа 21">
            <Defaults>              
                <Property definition="Slab_Common" name="Slab_Common/@Thickness" value="20.5" isEditable="false"/>              
            </Defaults>
        </CatalogItem>
        <CatalogItem type="Slab" name="Перекладниа 22">
            <Defaults>              
                <Property definition="Slab_Common" name="Slab_Common/@Thickness" value="30" isEditable="false"/>                
            </Defaults>
        </CatalogItem>
    </CatalogItems>
</DataGroupSystem>

Вот как ищу нужный узел:

    
Dim Node2 As IXMLDOMNodeList
Set xmlDoc = New DOMDocument30    
xmlDoc.async = False
xmlDoc.validateOnParse = False

z1 = Trim(ComboBox4.Text)                                         
xmlDoc.Load  z1                                                

Set objListOfNodes = xmlDoc.selectNodes("//Property")                          
 
     For Each objNode In objListOfNodes                                        
                    def_i = objNode.getAttribute("value")                       
      Next

End Sub

Но при таком поиске я получаю все значения value, а мне нужно узнать только в узле атрибут name которого равен Перекладниа 21. ((((((((((((((((

Решение задачи: «Как получить значение атрибута заданного узла в xml документе»

textual
                            Листинг программы 
                        

                            Sub m2()
    Dim Node2 As IXMLDOMNodeList
    Set xmlDoc = New DOMDocument30
    xmlDoc.async = False
    xmlDoc.validateOnParse = False
    z1 = Trim(ComboBox4.Text)
    xmlDoc.Load z1
    Set objListOfNodes = xmlDoc.SelectNodes("//CatalogItem[@name='Перекладниа 21']")
    For Each objNode In objListOfNodes
        def_i = objNode.FirstChild.FirstChild.getAttribute("value")
        Debug.Print def_i
    Next
End Sub
                        