Nested Arrays Solution

Option Explicit
Private Type tNested
  Blah      As String
  Blabla     As Long
End Type
Private Type tSomething
  Stuff      As String
  MoreStuff    As Long
  aNested()    As tNested
  Whatever    As Integer
End Type
Private aSomething() As tSomething
Private Sub Form_Click()
 Dim i As Long
  ReDim aSomething(1 To 500)
  For i = 1 To 500
    ReDim aSomething(i).aNested(1 To 10)
  Next i
  
  aSomething(12).aNested(7).Blah = "Hallo Michael"
  
  Debug.Print aSomething(12).aNested(7).Blah
End Sub