XMLを読み込む

Module1.vb

Imports System.Xml

Module Module1

    Sub Main()
        Console.WriteLine("Start!")

        ' XMLを扱うためのオブジェクト
        Dim xmlDoc As New XmlDocument()

        ' XMLを読み込み
        xmlDoc.Load("C:\test.xml")

        ' food というタグのリストを取得
        Dim foods As XmlNodeList = xmlDoc.GetElementsByTagName("food")

        For Each food As XmlNode In foods
            ' foodタグのname属性と値を出力
            Debug.Print(food.Attributes("name").Value + ": " + food.InnerText)
        Next

        Console.WriteLine("End!")
    End Sub

End Module

test.xml

<foods>
  <food name="バナナ">黄色</food>
  <food name="リンゴ">赤</food>
</foods>