XML VB.Net

Imports System
Imports System.Xml
public class Test
  public shared sub Main()
    Dim doc as XmlDocument = new XmlDocument()
    doc.LoadXml(""& _
                "some textmore text" & _
                "
")
    Dim elem as XmlElement
    elem = CType (doc.DocumentElement.ChildNodes.Item(0), XmlElement)
    elem.InnerText = "Text containing  will have char(<) and char(>) escaped."
    Console.WriteLine( elem.OuterXml )
  end sub
end class