XML

Al parecer no se entiende mucho mi exposición de hace

días:

Lo que he hecho:

Dim xmlDc As New Xml.XmlDocument()
Dim xmlIns As Xml.XmlProcessingInstruction
Dim xmlRoot As Xml.XmlElement
Dim xmlEl As Xml.XmlElement
Dim xmlCmm As Xml.XmlComment

xmlIns = xmlDc.CreateProcessingInstruction _
("xml", "version='1.0' encoding='UTF-8'")
xmlDc.AppendChild(xmlIns)
xmlDc.PreserveWhitespace = True

xmlCmm = xmlDc.CreateComment("The current data")
xmlDc.AppendChild(xmlCmm)

xmlRoot = xmlDc.CreateElement("Data")
xmlDc.AppendChild(xmlRoot)
xmlEl = CType(xmlRoot.AppendChild
(xmlDc.CreateElement("Values")), Xml.XmlNode)

xmlDc.Save("xml2.xml")

La salida:

<?xml version='1.0' encoding='UTF-8'?>
<!--The current data-->
<Data>
<Values />
</Data>

Lo que necesito o busco:

<?xml version='1.0' encoding='UTF-8'?>
<!--The current data-->
<Data>
<Values value1="23" Value2="35" ValueN="56"/>
</Data>

En fin necesito un nodo xml que tenga esta estructura de
values en una sola linea, no que los values sean
etiquetas aparte.
.