Imports System
Imports System.Xml
public class Sample
public shared sub Main()
Dim writer as XmlTextWriter = nothing
try
writer = new XmlTextWriter (Console.Out)
writer.WriteStartElement("address")
writer.WriteString("someone")
writer.WriteCharEntity("@"c)
writer.WriteString("example")
writer.WriteCharEntity("."c)
writer.WriteString("com")
writer.WriteEndElement()
finally
if not writer is nothing
writer.Close()
end if
end try
end sub
end class