Private Sub Кнопка73_Click()
Dim strFileName As String, strNumBS As String, strSBTS As String
Dim objXmlDoc As Object ' MSXML2.DOMDocument
Dim objXmlSingleNode As Object 'MSXML2.IXMLDOMNode
Dim objXmlChildNode As Object 'MSXML2.IXMLDOMNode
Dim OAMIP$, DN$

On Error GoTo HandleErrors

strFileName = "c:test\test.XML"

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")
    End With
    If Not objXmlSingleNode Is Nothing Then
        With objXmlSingleNode
            Debug.Print .Attributes.getNamedItem("distName").Text
            Debug.Print .selectSingleNode("p[@name='btsName']").Text
            DN = .Attributes.getNamedItem("distName").Text
        End With
        
      
        
    End If
' получим IP адреса

    strNodes = "/raml/cmData/managedObject[@class='com.nokia.srbts.tnl:IPADDRESSV4']/p[@name='localIpAddr']"
    'strNodes = "/raml/cmData/managedObject[@distName='MRBTS-605775/TNLSVC-1/TNL-1/IPNO-1/IPIF-1/IPADDRESSV4-1']/p[@name='localIpAddr']"
    For Each objXmlSingleNode In objXmlDoc.selectNodes(strNodes)
        OAMIP = objXmlSingleNode.Text
        Debug.Print "OAMIP = " & OAMIP
    Next

    
ExitHere:
    Set objXmlDoc = Nothing
    Exit Sub
HandleErrors:
    Debug.Print Err.Number; vbTab; Err.description
    Resume ExitHere

End Sub