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

Question

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 Sub

y 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

Answer 1

Answer 2

es lo que queria pero como puedo se puede hacer para saber el ultimo id en este caso 4 para cuando añada otro nodo nuevo no añada nuevamente 4

un saludo y gracias