title: VBA array of class objects inside object returns out of stack space error
body: <p>I am trying to illustrate the concept of using an array inside the Class Bookstore to store many book objects with the following code. I do not wish to use a collection for this task, because later on I like really to be able to access the Book(i), and do code depending on the i position within the array size.
  A little research in stackoverflow indicates that I should use ReDim statement, but did not show where and how exactly.</p>
  
  <p>Class Bookstore:</p>
  
  <pre><code>Private pBooks As Variant ' it will hold an array of object book
  Public Property Get Books() As Variant:  Books = pBooks:  End Property
  Public Property Let Books(v As Variant): Books = v:       End Property
  </code></pre>
  
  <p>Class Book:</p>
  
  <pre><code>Private pName As String
  Public Property Get Name() As String:     Name = pName:   End Property
  Public Property Let Name(s As String):   pName = s:       End Property
  </code></pre>
  
  <p>Testing Code:</p>
  
  <pre><code>Sub TestBookstore()
  
  Dim bookArray(1 To 2) As Book, i As Long
  For i = 1 To 2
   Set bookArray(i) = New Book
   bookArray(i).Name = "book called " &amp; i
  Next i
  
   Dim BKStore As Bookstore: Set BKStore = New Bookstore
     BKStore.Books = bookArray       ' ERROR HERE: out of stack space
  
   For i = LBound(BKStore.Books) To UBound(BKStore.Books)
     Debug.Print BKStore.Books(i).Name
   Next
  
  End Sub
  </code></pre>