Write XML File using XmlTextWriter

Imports System.Xml
Module Module1

    Sub Main()

        Dim xmlWriter As New XmlTextWriter("C:\productNames.xml", System.Text.Encoding.UTF8)
        With xmlWriter
            .WriteStartDocument(True)
            .WriteStartElement("data", "test")

            .WriteElementString("item", "test", "Prod0")
            .WriteElementString("item", "test", "Prod1")

            
            .WriteEndElement()
            .WriteEndDocument()
            .Close()
        End With

    End Sub

End Module