Selecting node by XPath
Public Class MainClass Shared Sub Main() Dim file As String = "books.xml" Dim doc As New System.Xml.XmlDocument doc.Load(file) Dim nodes As System.Xml.XmlNodeList nodes = doc.SelectNodes("shelf/book") Dim counter = 0 Do Until counter = nodes.Count System.Console.WriteLine(nodes.Item(counter).SelectSingleNode("title").InnerText & " by " & nodes.Item(counter).SelectSingleNode("author").InnerText & vbCrLf) counter = counter + 1 Loop End Sub End Class