XML VB.Net

Imports System
Imports System.IO
Imports System.Xml
public class Sample
  public shared sub Main()
    Dim doc as XmlDocument = new XmlDocument()
    doc.Load("booksort.xml")
    Dim book as XmlNode
    Dim nodeList as XmlNodeList 
    Dim root as XmlNode = doc.DocumentElement
    nodeList=root.SelectNodes("descendant::book[author/last-name='Austen']")
    for each book in nodeList      
      book.LastChild.InnerText="15.95"
    next 
    doc.Save(Console.Out)
  end sub
end class