vba загрузка настроек из xml

vba-Загрузка настроек из xml.vba

'***********************************************************************************************
'инициализация класса и загрузка xml с запросами
'***********************************************************************************************
Private loaderXml As MSXML2.DOMDocument
Private Const NAME_XML_FILE As String = "querys.xml"
Private Sub Class_Initialize()
    'загружаем документ для работы с запросами
    Dim path As String
    path = ThisWorkbook.path & "\" & NAME_XML_FILE
    Set loaderXml = New MSXML2.DOMDocument
    loaderXml.validateOnParse = False
    loaderXml.Load (path)
End Sub

'************************************************************************************************
'ЗАПРОСЫ ДЛЯ ФИЛЬТРОВ
'************************************************************************************************
Property Get getSelectTreeEmploee() As String
    getSelectTreeEmploee = loaderXml.getElementsByTagName("1111111").Item(0).text
End Property