Create an XML document and save it to disk

dim doc as System.Xml.XmlDocument;

dim catalog as System.Xml.XmlElement;

dim book as System.Xml.XmlElement;

dim title as System.Xml.XmlElement;

dim author as System.Xml.XmlElement;

dim lastName as System.Xml.XmlElement;

dim firstName as System.Xml.XmlElement;

' create new XML document rooted in catalog

doc = new System.Xml.XmlDocument;

catalog = doc.CreateElement("catalog");

doc.AppendChild(catalog);

' add a book to the catalog

book = doc.CreateElement("book");

title = doc.CreateElement("title");

author = doc.CreateElement("author");

lastName = doc.CreateElement("lastName");

firstName = doc.CreateElement("firstName");

author.AppendChild(lastName);

author.AppendChild(firstName);

book.AppendChild(title);

book.AppendChild(author);

catalog.AppendChild(book);

book.SetAttribute("isbn", "0385503822");

title.InnerText = "The Summons";

lastName.InnerText = "Grisham";

firstName.InnerText = "John";

' add another book

book = doc.CreateElement("book");

title = doc.CreateElement("title");

author = doc.CreateElement("author");

lastName = doc.CreateElement("lastName");

firstName = doc.CreateElement("firstName");

author.AppendChild(lastName);

author.AppendChild(firstName);

book.AppendChild(title);

book.AppendChild(author);

catalog.AppendChild(book);

book.SetAttribute("isbn", "044023722X");

title.InnerText = "A Painted House";

lastName.InnerText = "Grisham";

firstName.InnerText = "John";

' save the XML document to disk

doc.Save("c:\catalog.xml");