Ler varios niveis do XML

Preciso de uma ajuda, estou usando o codigo abaixo para ler os dados de um xml.

Set raiz = objXML.documentElement
'Response.write raiz.NodeName & "<br>" 'nome do node principal

    'Looping para percorrer todos os elementos filhos
    For i = 0 to raiz.childNodes.length -1

            '########### FILHOS paymentMethod ##############################
            if raiz.childNodes.item(i).nodename = "paymentMethod" then
                    set xmlRaiz = objXML.getElementsByTagName("paymentMethod")
                    for y = 0 to xmlRaiz.length - 1

                            str_paymentMethod_type = xmlRaiz.item(y).childNodes.item(0).text
                            str_paymentMethod_code = xmlRaiz.item(y).childNodes.item(1).text

                                response.write "<font color=red>"
                                response.write "Payment Method - " &xmlRaiz.item(y).childNodes.item(0).nodename &" : "& xmlRaiz.item(y).childNodes.item(0).text &"<br>"    'type
                                response.write "Payment Method - " &xmlRaiz.item(y).childNodes.item(1).nodename &" : "& xmlRaiz.item(y).childNodes.item(1).text &"<br>"    'code
                                response.write "</font>"
                    next
                    set xmlRaiz = nothing
            '########### FILHOS #####################
 

           '########### filho "item" (NETOS items) #########################
            elseif raiz.childNodes.item(i).nodename = "items" then
                    set xmlRaiz2 = objXML.getElementsByTagName("item")
                    for z = 0 to xmlRaiz2.length - 1

                            str_items_item_id = xmlRaiz2.item(z).childNodes.item(0).text
                            str_items_item_description = xmlRaiz2.item(z).childNodes.item(1).text
                            str_items_item_count = xmlRaiz2.item(z).childNodes.item(2).text
                            str_items_item_amount = xmlRaiz2.item(z).childNodes.item(3).text

                                    response.write "<font color=red>"
                                    response.write xmlRaiz2.item(z).childNodes.item(0).nodename &" : "& xmlRaiz2.item(z).childNodes.item(0).text &"<br>"    'id
                                    response.write xmlRaiz2.item(z).childNodes.item(1).nodename &" : "& xmlRaiz2.item(z).childNodes.item(1).text &"<br>"    'description
                                    response.write xmlRaiz2.item(z).childNodes.item(2).nodename &" : "& xmlRaiz2.item(z).childNodes.item(2).text &"<br>"    'count
                                    response.write xmlRaiz2.item(z).childNodes.item(3).nodename &" : "& xmlRaiz2.item(z).childNodes.item(3).text &"<br>"    'amount
                                    response.write "</font>"
                    next
                    set xmlRaiz = nothing
            '########### filho item (NETOS items) ########################

Codigo XML

Até consigo pegar os dados, mas não consigo agrupar em blocos exemplo, 

gostaria de pegar todas as tag dto_tb_usertag associado ao bloco dto_mensalista.

não sei se consegui me fazer entender......