COMO LER OS IMPOSTOS DOS ITENS NO XML ?

Public Sub PreencheProduto(strCaminhoXML As String)
On Error Resume Next
Dim lngItem         As Long
Dim lngLinha        As Long
Dim XML             As DOMDocument
Dim xmlElem         As IXMLDOMNode
Dim bolFimProdutos  As Boolean
Dim StrCodBarras    As String
Set XML = New DOMDocument
    
    lngItem = 0
    lngLinha = 1
    XML.async = False
    bolFimProdutos = False
    If XML.Load(strCaminhoXML) Then
        
        Do Until bolFimProdutos
            Set xmlElem = XML.SelectNodes([Ô]/nfeProc/NFe/infNFe/det[Ô]).item(lngItem).FirstChild
                
                [ô]*** Verfica se tem algum valor no código do produto, senão tiver finaliza o loop ***
                If xmlElem.SelectSingleNode([Ô]cProd[Ô]).Text = [Ô][Ô] Then bolFimProdutos = True: Exit Do
                
                StrCodBarras = xmlElem.SelectSingleNode([Ô]cEAN[Ô]).Text
                
                If chk_ImportarProdCodigoBarras.Value = 1 And StrCodBarras <> [Ô][Ô] Then
                   LastRow = lngLinha
                   Call BuscaProdutos(StrCodBarras)
                Else
                    grade1.TextMatrix(lngLinha, 2) = xmlElem.SelectSingleNode([Ô]cProd[Ô]).Text                                          [ô]Codigo produto
                    grade1.TextMatrix(lngLinha, 3) = xmlElem.SelectSingleNode([Ô]xProd[Ô]).Text                                          [ô]Descrição produto
                End If
                
                grade1.TextMatrix(lngLinha, 4) = xmlElem.SelectSingleNode([Ô]uCom[Ô]).Text                                               [ô]Unidade produto
                grade1.TextMatrix(lngLinha, 5) = Format(Replace(xmlElem.SelectSingleNode([Ô]qCom[Ô]).Text, [Ô].[Ô], [Ô],[Ô]), g_decimal_estoque) [ô]Quantidade Produto
                grade1.TextMatrix(lngLinha, 6) = Replace(xmlElem.SelectSingleNode([Ô]vUnCom[Ô]).Text, [Ô].[Ô], [Ô],[Ô])                          [ô]Valor unitário Produto
                grade1.TextMatrix(lngLinha, 7) = Replace(xmlElem.SelectSingleNode([Ô]vDesc[Ô]).Text, [Ô].[Ô], [Ô],[Ô])                           [ô]Valor Desconto Produto
                grade1.TextMatrix(lngLinha, 8) = Replace(xmlElem.SelectSingleNode([Ô]vUnCom[Ô]).Text, [Ô].[Ô], [Ô],[Ô])                          [ô]Valor unitário Produto
                grade1.TextMatrix(lngLinha, 11) = Replace(xmlElem.SelectSingleNode([Ô]vProd[Ô]).Text, [Ô].[Ô], [Ô],[Ô])                          [ô]Valor Total Produto
                grade1.TextMatrix(lngLinha, 17) = [Ô]NF[Ô]
                grade1.TextMatrix(lngLinha, 28) = xmlElem.SelectSingleNode([Ô]CFOP[Ô]).Text                                              [ô]CFOP Produto
                grade1.TextMatrix(lngLinha, 38) = StrCodBarras                                                                       [ô]Cód. barras produto
                grade1.TextMatrix(lngLinha, 40) = xmlElem.SelectSingleNode([Ô]NCM[Ô]).Text                                               [ô]Código NCM Produto
                
                xmlElem.SelectSingleNode([Ô]cProd[Ô]).Text = [Ô][Ô] [ô]Limpa o objeto para setar um novo.

                lngItem = lngItem + 1
                lngLinha = lngLinha + 1
                Call ChamaCelula
        Loop
    Else
        MsgBox [Ô]Não foi possível abrir o arquivo XML da NFe especificada para Leitura.[Ô], vbCritical, [Ô]Erro.[Ô]
    End If
    
End Sub