Getting attribute count from an AutoCAD Block

[muck]

I am using AutoCAD 2010.

I am trying to get the number of attributes in an AutoCAD Block.

I am using the following code:

 

For Each elem In ThisDrawing.ModelSpace

If elem.EntityName = "AcDbBlockReference" Then

If elem.Name = "SPREAD SHEET INFO" Then

array1 = elem.GetAttributes

'attribct = UBound(array1())

c = 0

For k = 0 To UBound(array1())

Debug.Print array1(k)

c = c + 1

Next k

End If

End If

Next

 

No luck with this code, Problem with UBound (array1()).

So how do I get the number of attributes in a AutoCAD block?

Thank you,