Ce site te servira de qque chose :
http://www.codyx.org/snippet_lire-fichier-xml_186.aspxmais c'est du C#, sinon :
Dim objXMLDataDoc As new XMLDataDocument()
objXMLDataDoc.Load("<chemin du fichier XML>")
Dim objNode As XmlNode
Dim strResults(2,10) As String
Dim Compteur As Integer = 1
Dim I As integer
Dim colElements As XmlNodeList
Dim colElements2 As XmlNodeList
colElements = objXMLDataDoc.GetElementsByTagname("population")
colElements2 = objXMLDataDoc.GetElementsByTagname("status")
For Each objNode In colElements
strResults(1,Compteur)= objNode.FirstChild().Value
Compteur = Compteur + 1
Next
Compteur = 1
For Each objNode In colElements2
strResults(2,Compteur)= objNode.FirstChild().Value
Compteur = Compteur + 1
Next