Dim xmlDoc As MSXML2.DOMDocument

    Set xmlDoc = New MSXML2.DOMDocument

    ' Ruta del archivo XML

    Dim xmlFilePath As String

    xmlFilePath = "C:\FE\BAT\HOLA.xml"

    ' Cargar el documento XML

    xmlDoc.async = False

    xmlDoc.Load xmlFilePath

    If xmlDoc.parseError.ErrorCode <> 0 Then

        MsgBox "Error cargando el archivo XML: " & xmlDoc.parseError.reason

        Exit Sub

    End If

    ' Realizar modificaciones en el XML

    Dim EtiquetaMod As MSXML2.IXMLDOMNode

    Set EtiquetaMod = xmlDoc.SelectSingleNode("/AttachedDocument/cac:ParentDocumentLineReference/cac:DocumentReference/cbc:UUID") ' Reemplaza con tu XPath

    If Not EtiquetaMod Is Nothing Then

        EtiquetaMod.Text = "FFFF"

    Else

        MsgBox "No se encontró el nodo especificado."

    End If

    ' Guardar los cambios en el archivo XML

    xmlDoc.Save xmlFilePath

    MsgBox "Archivo XML modificado y guardado correctamente."