Public Sub OpenXMLDocumentAndFillStructure()
 
        Dim doc As XmlDocument
 
        doc = New XmlDocument
        doc.Load(flName)
 
        RekFindObjAndStructure(doc.ChildNodes)
 
    End Sub
 
    Public Sub RekFindObjAndStructure(ByVal nodes As XmlNodeList)
 
        For Each nd As XmlNode In nodes
            If nd.Name = "obj" OrElse nd.Name = "structure" Then
                For Each attr As XmlAttribute In nd.Attributes
                    If attr.Name = "uid" Then
                        'Check if uid is like given uid
                        'Add to own structure class
                    End If
                Next
 
                If nd.ChildNodes.Count > 0 Then
                    RekFindObjAndStructure(nd.ChildNodes)
                End If
            Else
                If nd.ChildNodes.Count > 0 Then
                    RekFindObjAndStructure(nd.ChildNodes)
                End If
            End If
        Next
 
    End Sub