Sub fncПробаSess()
'On Error GoTo Ошибка
 Const strXmlFileName = "C:\_ZenitMICEX\maxDate_19.06.2020\MM00001_SEM21A_00T_230620_005003458.xml"  'новый файл
 Const strСтрокаАтрибутов = "TradeDate"
 Const strXMLЗапрос = "SEM21"

Dim docXmlФайл As DOMDocument                                                   'документ целиком (файл)
Dim xmlКорень As IXMLDOMElement                                                 'корневая ветка
Dim xmlСтрокаДанных As IXMLDOMElement, xmlСтрокаДанных_2 As IXMLDOMElement      'Element
Dim lstКаталог As IXMLDOMNodeList ', lstСписок As IXMLDOMNodeList               'каталог
Dim longКоличествоСтрок As Long, j As Long, i As Long
Set docXmlФайл = New DOMDocument
docXmlФайл.async = False
docXmlФайл.Load strXmlFileName                                                  'загружаем XML-файл
Set xmlКорень = docXmlФайл.documentElement
Set lstКаталог = xmlКорень.selectNodes(strXMLЗапрос)                            'возвращаем каталог

longКоличествоСтрок = lstКаталог.Length
Set xmlСтрокаДанных = lstКаталог(0)
       
      Debug.Print xmlСтрокаДанных.nodeValue
        
Exit Sub
Ошибка:                                                                         'Обработка ошибки
MsgBox Err.Description & "  " & Err.Number, , "fncПробаSess"
End Sub

Debug.Print xmlСтрокаДанных.nodeValue

objAttr = xmlСтрокаДанных.getAttribute(strАртибут)