DIM Tree As New XmlDocument
DIM Node As XmlNode

Node = Tree.CreateElement("Sites")

tree.AppendChild(nodo)

For Each a In Arr
Node = tree.CreateElement("value")
Node.InnerText = a.ToString
Tree.DocumentElement.AppendChild(nodo)
Next

Tree.Save(Application.StartupPath & "\File.xml")