Pessoal nao estou conseguido pegar cada Item do nó.

Usando o Text e colocado tudo na mesma string.

Gostaria de pegar cada item  do Nó e colocar em uma colecao.

 

 

ex:

 For Each objEmpresaElement In objEmpresaRaiz.childNodes
     Set objEmpresas = New clsEmpresas
    
     With objEmpresas
          .strCodigoEmpresa = objEmpresaElement ??    
          .strNomeEmpresa = objEmpresaElement.Text
          .strEmailEmpresa = objEmpresaElement.Text

     End With
    
 Next