crear archivo xml

Public Sub crear_archivo_cfg(ByVal archivo As String)
        Dim sw As New StreamWriter(archivo, False, Encoding.UTF8)
        sw.WriteLine("<?xml version=""1.0"" encoding=""UTF-8""?>")
        sw.WriteLine("<DATA>")
        sw.Write("</DATA>")
        sw.Close()
    End Sub