Ciao ragazzi ho un problema con la lettura di un file XML

codice:
<articolo>
   <codice>123</codice>
   <produttore>produttore</produttore>
   <codiceproduttore>codiceproduttore</codiceproduttore>
   <categoria>categoria</categoria>
   <descrizione>articolo</descrizione>
   <arrivo>
    <data>
     <giorno>07</giorno>
     <mese>08</mese>
     <anno>2008</anno>
    </data>
    <quantita>20</quantita>
   </arrivo>
   <prezzo>17,77</prezzo>
</articolo>
il codice che utilizzo è il seguente

codice:
Set Nodo = objXML.getElementsByTagName("articolo")

For Each objNodi In Nodo

For Each objNodo In objNodi.childNodes

Select Case objNodo.nodeName

Case "codice"
codice = objNodo.firstChild.nodevalue
Case "produttore"
produttore = objNodo.firstChild.nodevalue
Case "codiceproduttore"
codiceproduttore = objNodo.firstChild.nodevalue
Case "categoria"
categoria = objNodo.firstChild.nodevalue
Case "descrizione"
descrizione = objNodo.firstChild.nodevalue
Case "prezzo"
prezzo = objNodo.firstChild.nodevalue
End Select
se volessi leggere il valore quantità come devo fare?

Se aggiunfo allo script di cui sopra:

codice:
Case "quantita"
quantita = objNodo.firstChild.nodevalue
non funziona...

Grazie