Principales respuestas
Ayuda de como añadir datos a un xml ya creado

Pregunta
-
hola tengo un achivo xml ya creado con este codigo
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim obj As Object
Dim Archivo As Object
Dim x As Integer = 0
obj = CreateObject("Scripting.FileSystemObject")
Archivo = obj.CreateTextFile("salvi.xml", True)
Archivo.Writeline("<?xml version='1.0' encoding='utf-8'?>")
Archivo.Writeline("<G>")
For x = 0 To 3
Archivo.Writeline("<Imagen id='" & CStr(x) & "'>")
Archivo.Writeline("<subnodo1>hola</subnodo1>")
Archivo.Writeline("<subnodo1>Rocio</subnodo1>")
Archivo.Writeline("</Imagen>")
Archivo.Writeline("")
Next
Archivo.Writeline("</G>")
Archivo.close()
End Suby este para añadir pero no consigo terminar el codigo
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
//Cargamos el documento XML.
Dim documento As XmlDocument
Dim nodelist As XmlNodeList
Dim node As XmlNode
documento = New XmlDocument
documento.Load("salvi.xml")
//Creamos el nodo que deseamos insertar.
node(G / Imagen = this.CrearNodoXml("4"))
//Obtenemos el nodo raiz del documento.
node(G = documento.DocumentElement)
//Insertamos el nodo empleado al final del archivo
G.InsertAfter(empleado, nodoRaiz.LastChild); //***
documento.Save("salvi.xml")
End Sub