XML - Crecion de subnodos en xml

Hola amigos:
Escribo por que soy nuevo en la escritura de xml
Estoy trabajando en visual basic y tengo creado un nodo raiz "lote"
dentro de este nodo tengo otros como
"altas", "bajas" , etc
hasta ahi todo ok.
pero no se como crear un nodo dentro de altas, por ej
lote[altas(animales{caravana})]
no se si me explico
estoy necesitando una respuesta inmediata..
muchisimas gracias

Hola Amigo,
Este es el código para crear subnodos, de esa manera puedes crear en forma recursiva subnodos hasta donde quieras.

dim objNode, objDOM, strXPath, Altas
Set objDOM = CreateObject("Microsoft.XMLDOM")
objDOM.async = false
objDOM.load("subnodo.xml")
Set objNode = objDOM.selectSingleNode("/lote/altas")
Set Altas = objDOM.createElement("animales")
Altas.Text = "Vaca"
objNode.appendChild Altas

Set objNode = objDOM.selectSingleNode("/lote/bajas")
Set Bajas = objDOM.createElement("vegetales")
Bajas.Text = "Espárrago"
objNode.appendChild Bajas

Cualquier duda me lo haces saber.

Saludos