' Collection of code snippets by Arne Vajhøj ' posted to eksperten.dk, usenet and other places (2002-now) Imports System Imports System.Xml Module Main Sub Main() Dim doc As XmlDocument = New XmlDocument doc.Load("C:\wmi.xml") Dim infos As XmlNodeList = doc.GetElementsByTagName("Info") For Each info As XmlElement In infos Dim kols As XmlNodeList = info.GetElementsByTagName("kollonne") For Each kol As XmlNode In kols Console.WriteLine(kol.ChildNodes(0).FirstChild.Value & " " & kol.ChildNodes(1).FirstChild.Value) Next Next End Sub End Module