Dim xmlDoc As XmlDocument
        Dim xmlDocPerso As XmlDocument
 
        xmlDoc = New XmlDocument()
        xmlDocPerso = New XmlDocument()
 
        Dim strFile As String
        Dim perso As String
 
        Dim xmlNodes As XmlNodeList
        Dim xmlNodesPerso As XmlNodeList
        Dim node As XmlNode
        Dim nodePerso As XmlNode

<entry id="118">
		<pnr><![CDATA[001427]]></pnr>
		<nname><![CDATA[test]]></nname>
		<vname><![CDATA[tester]]></vname>
		<pid><![CDATA[400317]]></pid>
	</entry>