XML VB.Net

Option Strict
Option Explicit
Imports System
Imports System.IO
Imports System.Xml
Public Class Sample
    Public Shared Sub Main()
        Dim writer As New XmlTextWriter(Console.Out)
        writer.Formatting = Formatting.Indented
        writer.WriteStartElement("Items")
        writer.WriteStartElement("Item")
        writer.WriteRaw("this & that")
        writer.WriteEndElement()
        writer.WriteStartElement("Item")
        writer.WriteString("this & that")
        writer.WriteEndElement()
        writer.WriteEndElement()
        writer.Close()
    End Sub 
End Class