AutoCAD VBA Getting attributes when in a class module

[muck]

Program, AutoCAD 2010 VBA

I normally use the following code to get attributes from a drawing.

 

Public Sub array1Initialize()

For Each elem In ThisDrawing.ModelSpace

If elem.EntityName = "AcDbBlockReference" Then

If elem.Name = "SPREAD SHEET INFO" Then

array1 = elem.GetAttributes

DrawingAttributeCT = 0

For j = 0 To UBound(array1)

'Debug.Print array1(k)

DrawingAttributeCT = DrawingAttributeCT + 1

Next j

End If

End If

Next

End Sub

 

The attributes are in an array called array1. This works in my form module but when I move it to a class module I get array1 is not readable. Anyone have any ideal why this happens and is there any sample

code that gets attribute in a class module?

 

 

Thank you,