bEH SE TI SONO CHIARI GLI ARRAY ...

codice:
    Do While Not xRs.EOF
    'relative = vuoto se principale //
        Set N(0) = trvAlbero.Nodes.Add()
        N(0).ForeColor = vbRed
        N(0).Text = xRs!Gruppo & " - " & xRs!Descrizione
        N(0).Tag = xRs!Gruppo
        N(0).Key = "NN" & xRs!ID
       ' N(0).Tag
        nInd = N(0).Index
        nsub = N(0).Child

L' array lo dichiari cosi'
codice:
Dim N() as Nodes
Set N() = indice ... Split(stringa,".")