No es exacto lo que solicitas, pero quiza pueda orientarte, es codigo para agregar un
Cita: Dim nodoAddenda As XmlNode
nodoAddenda = comprobante.Item(prefijo & "Addenda")
nodoHijo = nodoAddenda.Item("DSCargaRemisionProv")
nodoNieto = nodoHijo.Item("Remision")
' El XMl puede o no contener el folio nota de entrada
nodoBisNieto = nodoNieto.Item("FolioNotaEntrada")
If Not nodoBisNieto Is Nothing Then
'-------------------
' YA EXISTIA EL NODO FOLIO NOTA DE ENTRADA.. SIMPLEMENTE LO ACTUALIZAMOS
'-------------------
'Dim txtImpuesto As String = nodoBisNieto.Attributes.GetNamedItem("FolioNotaEnt rada").Value()
'Dim tmpNotaEntrada As String = nodoBisNieto.InnerText
nodoBisNieto.InnerText = txtFolioEntrada.Text.Trim
'txtFolioEntrada.Text = tmpNotaEntrada
Else
'-------------------
' El nodo NO EXISTE, CREAMOS LOS 2 REQUERIDOS POR SORIANA
'-------------------
'newNode = MyXMLDocument.CreateElement("ad_fax")
'newNode.InnerText = "NA"
'node.AppendChild(newNode)
nodoBisNieto = doc.CreateElement("FolioNotaEntrada", nodoNieto.NamespaceURI)
If prefijo <> "cfdi:" Then
'nodoBisNieto.Prefix = ""
'nodoBisNieto.Attributes.RemoveNamedItem("xmlns")
End If
'nodoBisNieto.Prefix = ""
nodoBisNieto.InnerText = txtFolioEntrada.Text.Trim
nodoNieto.AppendChild(nodoBisNieto) ' Solo crea el nodo dentro del nieto
'2a etique -------------
nodoNietoPedidos = nodoHijo.Item("Pedidos") ' Justo Container
nodoBisnietoEMITIDOPRov = doc.CreateElement("PedidoEmitidoProveedor", nodoNietoPedidos.NamespaceURI)
'nodoBisnietoEMITIDOPRov = nodoNietoPedidos.Item("PedidoEmitidoProveedor")
nodoBisnietoEMITIDOPRov.InnerText = "SI"
nodoNietoPedidos.AppendChild(nodoBisnietoEMITIDOPR ov)
'nodoNietoPedidos = nodoHijo.Item("Pedidos")
' Referenciamos a la otra etiqueta que se necesita
End If
doc.Save(rutaXML_Modificado & nombre_archivoXML_enProceso)