Si te fijas en este código lo que hace es eso precisamente: Lee un archivo y el código lo almacena en una variable:
Código:
ss = PATHVIRTUALDELARCHIVO & rs("iddcontenido") & ".asp"
peticion.Open "POST", ss,False
peticion.Send
respuesta = peticion.responseText
Luego no tienes más que añadir esa variable (respuesta) a un nodo CDATA:
Código:
Set objNewCDATA = nuevo_nodo.createCDATASection(respuesta)
nuevo_nodo.appendChild(objNewCDATA)
Un saludo