Imports System.Xml

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Write_XML()
    End Sub
    Private Sub Write_XML()
        Dim XMLobj As Xml.XmlTextWriter
        Dim enc As New System.[Text].UnicodeEncoding()
        XMLobj = New Xml.XmlTextWriter("C:\test.xml", enc)
        XMLobj.Formatting = Xml.Formatting.Indented
        XMLobj.Indentation = 3
        XMLobj.WriteStartDocument()
        XMLobj.WriteStartElement("Books")

        XMLobj.WriteStartElement("Book")
        XMLobj.WriteElementString("ISBN", "100000000")
        XMLobj.WriteElementString("ISBN", "100000000")
        XMLobj.WriteEndElement()

        XMLobj.Close()

        
    End Sub