Sub p_xml()
Dim strFileName As String, strNumBS As String, strSBTS As String
Dim objXmlDoc As Object ' MSXML2.DOMDocument
Dim objXmlSingleNode As Object 'MSXML2.IXMLDOMNode

On Error GoTo HandleErrors

strFileName = GetFileName
    If Len(strFileName) = 0 Then Exit Sub
    If Len(Dir$(strFileName)) = 0 Then Exit Sub
strNumBS = Split(Dir$(strFileName), "_")(2)
Set objXmlDoc = CreateObject("MSXML2.DOMDocument")

    With objXmlDoc
        .async = False
            If Not .Load(strFileName) Then
                MsgBox "Oops!!", vbCritical
                GoTo ExitHere
            End If
        Set objXmlSingleNode = .selectSingleNode("/raml/cmData/managedObject[@class='SBTS']")
    End With
    If Not objXmlSingleNode Is Nothing Then
        With objXmlSingleNode
            'òàáëèöà SBTS
            Debug.Print strNumBS
            strSBTS = Mid(.Attributes.getNamedItem("distName").Text, 6)
            Debug.Print strSBTS
            Debug.Print .selectSingleNode("p[@name='sbtsName']").Text
        End With
    End If
Set objXmlSingleNode = objXmlDoc.selectSingleNode("/raml/cmData/managedObject[@class='MPLANE']")
    If Not objXmlSingleNode Is Nothing Then
        With objXmlSingleNode
            'òàáëèöà MPLANE
            Debug.Print strNumBS
            Debug.Print strSBTS
            Debug.Print .selectSingleNode("p[@name='mPlaneIpAddress']").Text
        End With
    End If
ExitHere:
    Set objXmlDoc = Nothing
    Exit Sub
HandleErrors:
    Debug.Print Err.Number; vbTab; Err.Description
    Resume ExitHere
End Sub

Private Function GetFileName(Optional ByVal strPath As String) As String
On Error Resume Next
    If Len(strPath) = 0 Then strPath = CurrentProject.Path
    If Len(Dir$(strPath, vbDirectory)) = 0 Then strPath = CurrentProject.Path
    With Application.FileDialog(1&)
        .InitialFileName = strPath
        .AllowMultiSelect = False
        .Title = "Óêàæèòå ôàéë"
        .Filters.Clear
        .Filters.Add "eXtensible Markup Language", "*.xml", 1
        .FilterIndex = 1
            If .Show = -1 Then
                GetFileName = .SelectedItems(1)
            End If
    End With
End Function