XML y VB6 (urgente)

Hola. Estas utilizando el DOMDocument, te paso un par de
lineas a ver si te sirven:

Set xmldoc = CreateObject("Msxml2.DOMDocument")
xmldoc.async = false
' XMLSTRING es una variable con todo el XML
xmldoc.LoadXML( XMLSTRING )

' Seteo el Nodo.
Set root = xmldoc.documentElement
' ndName nombre del nodo a agregar
Set newElem = xmlDoc.createElement( ndName )

root.appendChild newElem
' ndValor, valor del nodo
root.lastChild.Text = ndValor

' Seteo el atributo del Nodo.
' attNombre, del atributo.
Set newAtt = xmlDoc.createAttribute( attNombre )
newAtt.Value = attValor

' Valor del atributo
Set namedNodeMap = newElem.Attributes
namedNodeMap.setNamedItem newAtt



Espero te sirva. Podes utilizar el HELP del XML Dom.
Saludos.

Hola gente del foro, tengo una problema que no puedo

resolver. No tengo

problema para poder trabajar un xml normal, pero con

este si que no se como

se hace. Este es mi xml.

<?xml version="1.0" encoding="ISO-8859-1"?>
<!DOCTYPE tv SYSTEM "xmltv.dtd">
<tv>
<channel id="02">
<display-name>CANAL (A)</display-name>
<display-name>02</display-name>
</channel>
<programme start="20040612060000 +0200"

stop="20040612073000 +0200"

channel="01">
<title lang="es">Canal 24 horas</title>
<desc lang="es">Informativo.</desc>
<category lang="es">INFORMATIVO</category>
</programme>
</tv>

Como hago con vb6 para poder insertar un nodo CHANNEL

con un nuevo ID mas

los otros datos? Alguien tiene un codigo de ejemplo? No

encontre nada en la

web.
Desde ya muchas gracias
Diego


.