I am having real trouble retrieving the data from the data structure I have
built.

I have created a collection:

Dim areas As New Collection

Added to the collection:

For i = 0 To TierNum - 1

Dim quad1 As New AClass
quad1.Shape = quad
quad1.Key = CStr(areakeynum)
areas.Add quad1.Shape, quad1.Key
areakeynum = areakeynum + 1
Next i

Added to the collection initialized in AClass:

Set pts1 = New PClass
pts1.x = 5
pts1.y = 2
pts1.Key = "Point 1"
quad1.theCollection.Add pts1

Now I want to retrieve each PClass for each AClass in the areas collection.

I am in dire need of some help.