XML VB.Net

Imports System
Imports System.Xml
Imports System.IO
Imports System.Xml.XPath
Public Class MainClass
    Public Shared Sub Main()
        Dim document As XmlDocument = New XmlDocument()
        document.Load("domainBooks.xml")
        Dim navigator As XPathNavigator = document.CreateNavigator()
        navigator.MoveToChild("bookstore", "http://www.domain.com/books")
        navigator.MoveToChild("book", "http://www.domain.com/books")
        Dim childNodes As XmlDocument = New XmlDocument()
        childNodes.Load(New StringReader("100"))
        Dim childNodesNavigator As XPathNavigator = childNodes.CreateNavigator()
        If childNodesNavigator.MoveToChild("pages", "http://www.domain.com/books") Then
            navigator.AppendChild(childNodesNavigator)
        End If
        Console.WriteLine(navigator.OuterXml)
    End Sub
End Class