VB.NET　XML要素取り出し

VB.NETでXMLに関して質問です 下記のようなXML 　　　　 　　　　　　　　 　　　　　　　　 　　　　　　　　 　　　　 　　　　 　　　　　　　　 　　　　 を読み取り要素であるid、path、nameの内容を変数に入れるプログラムを作成しようと思っています そこで下記のようなプログラム Dim xDocument As Xml.XmlDocument = New Xml.XmlDocument Dim xRoot As Xml.XmlElement Dim xVegetablefolderlist As Xml.XmlNodeList Dim xfolderlist As Xml.XmlNodeList Dim xpicturelist As Xml.XmlNodeList Dim xselectlist As Xml.XmlNodeList 'XMLファイルの呼び出し() Call xDocument.Load(My.Settings.flistpass) 'XMLドキュメントからルート要素を取り出す() xRoot = xDocument.DocumentElement 'XMLのルートが発見できなかった時() If xRoot Is Nothing Then MessageBox.Show("folderlist.xmlの記述が誤っています。", _ "エラー", _ MessageBoxButtons.OK, _ MessageBoxIcon.Error) GoTo exi End If xmusicfolderList = xRoot.GetElementsByTagName("Vegetablefolder") For Each xElement1 As Xml.XmlElement In xVegetablefolderlist Call MessageBox.Show(String.Format("データあり : {0}個", xVegetablefolderlist.Count)) xfolderlist = xElement1.GetElementsByTagName("folder") Call MessageBox.Show(String.Format("データあり : {0}個", xfolderlist.Count)) '項目一覧から項目を取り出す For Each xfolder As Xml.XmlDocument In xfolderlist '属性を読み取る ??? Next xfolder Next xElement1 xpicturelist = xRoot.GetElementsByTagName("picture") For Each XElement2 As Xml.XmlElement In xpicturelist Call MessageBox.Show(String.Format("データあり : {0}個", xpicturelist.Count)) xselectlist = XElement2.GetElementsByTagName("select") For Each xselect As Xml.XmlDocument In xselectlist Call MessageBox.Show(xselect.SelectSingleNode("@bg").Value) Next xselect Next XElement2 を試しに作成したのですが、属性を読み取り変数に格納するところの記述に困っています（???の部分） の項目は一定では無く、例は3つですがもっと多い場合もあるので 配列を使うのが適切だと思うのですがどのように記述するのが適切でしょうか？ アドバイスをお願いします