work with xml in vb6

hi,
i have this xml:

<?xml version="1.0" standalone="yes"?>
<DocumentElement>
<export>
<operador>administrador</operador>
<data>4/3/2010</data>
<hora>16:45:59</hora>
<codigo>mosca</codigo>
<ean>DDKD</ean>
<descricao>0.70X1250X2500E</descricao>
<movimento>+</movimento>
<adjudicante />
<fornecedor_id />
<cliente_id />
<id>51</id>
<id_at>56</id_at>
<n_serie />
</export>
<export>
<operador>administrador</operador>
<data>4/3/2010</data>
<hora>16:46:18</hora>
<codigo>sapo</codigo>
<ean>SDFSDFSDFSDF</ean>
<descricao>0.70X1500X3000NI</descricao>
<movimento>+</movimento>
<adjudicante />
<fornecedor_id />
<cliente_id />
<id>52</id>
<id_at>56</id_at>
<n_serie />
</export>
</DocumentElement>

i can import the values from the xml using this function:

if objXML.Load(file.xml) Then

msgbox = objXML.selectSingleNode("//" & valor & "/descricao").Text

but i only can see the first data, how can i pass to next record?
i have tryed this:

objXML.selectSingleNode("//" & valor & "/hora").childNodes.nextNode

but this return in same data

thanks a lot for your help
:)

end if