Imports System
Imports System.Xml
public class Test
public shared sub Main()
Dim doc as XmlDocument = new XmlDocument()
doc.LoadXml(""& _
"some text more 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