Agregar nodos hijos a nodo xml

 Dim doc As New XmlDocument()
 doc.Load("archivo.xml")

' Seleccionar el nodo raíz y contar sus nodos hijos
 Dim x As XmlNode = doc.SelectSingleNode("/datos/variables")
 Dim n As Integer = x.ChildNodes.Count

' Crear nodo xml
 Dim child As XmlElement = doc.CreateElement("var" & n + 1)
 child.InnerText = "comuna"

 ' Agregar nodo hijo
   x.AppendChild(child)   '---- x.InsertBefore(child, x.FirstChild)

' Guardar los cambios
 doc.Save("archivo.xml")

Antes:
<variables>
    <var1>dte</var1>
    <var2>folio</var2>
    <var3>rut</var3>
</variables>

Después:
<variables>
    <var1>dte</var1>
    <var2>folio</var2>
    <var3>rut</var3>
    <var4>comuna</var4>
</variables>

fuente