SelectionSet and GetAttributes

I have a SelectionSet in which there are Blocks, so I want to extract attributes from blocks and storage in array to in another Sub compare them, I had wrote this fragment of code and give me an error in

"Atributos(2) = ssetObj.Item(J).GetAttributes", please somebody help me

Private Sub ProcesaAtributos(c As Integer)

Dim I As Integer

Dim J As Integer

Dim PrimerElemento As Variant

Dim SegundoElemento As Variant

ReDim Preserve Atributos(1 To 2)

I = 0

For I = 1 To ssetObj.Count - 1

For J = I + 1 To ssetObj.Count

Atributos(1) = ssetObj.Item(I).GetAttributes

Atributos(2) = ssetObj.Item(J).GetAttributes

Next J

Next I

Erase Atributos

End Sub