Breve risposta che mi ha illuminato
Sono giunto a questo codice per salvare un nuovo elemento
codice:
Dim XmlDoc As New XmlDocument
          XmlDoc.Load(Percorso)

            Dim NuovoElemento As XmlElement = XmlDoc.CreateElement(Elemento)
            NuovoElemento.InnerText = ValoreElemento
            Dim RootElement As XmlElement
            If NodoPadre = "" Then
                RootElement = XmlDoc.DocumentElement()
            Else
                If XmlDoc.DocumentElement(NodoPadre) Is Nothing Then
                    RootElement = XmlDoc.DocumentElement.FirstChild(NodoPadre)
                Else
                    RootElement = XmlDoc.DocumentElement(NodoPadre)
                End If
            End If
            RootElement.AppendChild(NuovoElemento)
            XmlDoc.Save(Percorso)
grazie, alla prossima