Option Strict
Option Explicit
Imports System
Imports System.IO
Imports System.Xml
Public Class Sample
Public Shared Sub Main()
Dim doc As New XmlDocument()
doc.LoadXml("<book ISBN='1-111111-57-5'>" & _
"<title>C#</title>" & _
"<price>9.9</price>" & _
"</book>")
Dim root As XmlNode = doc.FirstChild
If root.HasChildNodes Then
Dim i As Integer
For i = 0 To root.ChildNodes.Count - 1
Console.WriteLine(root.ChildNodes(i).InnerText)
Next i
End If
End Sub 'Main
End Class 'Sample