Sub Test()
    Dim xmlDoc As Object, ByDoc, CadastralNumber, Name, OrganizationName
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    xmlDoc.Load "C:\Users\Сергей\Downloads\kv_.xml"
    XPath = "//Parcels/Parcel"
    Set Parcel = xmlDoc.SelectSingleNode(XPath)
    CadastralNumber = ""
    If Not Parcel Is Nothing Then
        CadastralNumber = Parcel.Attributes.getNamedItem("CadastralNumber").Value
    End If
    ByDoc = ""
    XPath = "//Utilization"
    Set Utilization = xmlDoc.SelectSingleNode(XPath)
    If Not Utilization Is Nothing Then
        ByDoc = Utilization.Attributes.getNamedItem("ByDoc").Value
    End If
    XPath = "//Rights/Right"
    Set objListOfNodes = xmlDoc.SelectNodes(XPath)
    For n = 0 To objListOfNodes.Length - 1
        Set Right_ = objListOfNodes(n)
        For Each Nod In Right_.ChildNodes
            Select Case Nod.BaseName
            Case "Name"
                Name = Nod.Text
            Case "Owners"
                'Если уверены,
                ' что в документе все на своих местах, иначе перебор в цикле
                Set Organization = Nod.ChildNodes(0).ChildNodes(0).ChildNodes(0)
                OrganizationName = Organization.Text
            Case "Registration"
                ''ваш  Код
            End Select
        Next
    Next
End Sub