構造体での宣言のようにクラスモジュールを使って配列化したい

Question

クラスモジュールを使って下記の構造体で宣言したようにクラスでデータを扱いたい。

Type AAA
   dataA As String
End type

Type BBB
   dataB AS String
   dataAAA AS AAA
End type

Type CCC
   dataC As String
   dataBBB AS BBB
End Type

Sub main()
   dataDDD() As CCC   
   Redim dataDDD(1)
   Redim dataDDD(1).dataBBB(2)
   Redim dataDDD(1).dataBBB(2).dataCCC(4)

Endsub

しかし、調べてみたところクラスを配列化する場合はfor文で個別にインスタンス化すればできるということがわかったのですが、
そうするとdataDDDが配列化できてもdataBBBとdataCCCに当たる箇所が配列化できなく、配列化する宣言方法は無いでしょうか？

現状では下記のように考えています。

'Class1
Public dataA As String

'Class2
Public data1 As New = Class1
Public dataB As String

'Class3
Public data3 As New = Class2
Public dataC As String

'標準モジュール
sub main()
    Dim dataDDD() As Class3
    Dim i As long

    for i=0 To 1
       ReDim dataDDD(i) = New Class3 
    Next i

End Sub

Answer 1

いろいろ構文が間違ってます。
Public data1 As New = Class1
とか
ReDim dataDDD(i) = New Class3

あと動的配列の ReDim は、Preserve を入れておかないと、初期化されちゃいます。

'Class1
Public dataA As String

'Class2
Public data1 As New Class1
Public dataB As String

'Class3
Public data3 As New Class2
Public dataC As String

'標準モジュール
Sub main()
    Dim cls3 As Class3
    Dim dataDDD() As Class3
    Dim i As Long

    For i = 0 To 1
        ReDim Preserve dataDDD(i)
        Set dataDDD(i) = New Class3
        dataDDD(i).data3.data1.dataA = i & "番目のdataA"
        dataDDD(i).data3.dataB = i & "番目のdataB"
        dataDDD(i).dataC = i & "番目のdataC"
    Next i
    
    '内容確認
    Dim vCls
    For Each vCls In dataDDD
        Debug.Print vCls.data3.data1.dataA, vCls.data3.dataB, vCls.dataC
    Next
End Sub

自分がするなら、配列ではなく、Collectionオブジェクトに格納するかな。

Answer 2

宣言の仕方が間違ってます。

dataAAA() AS AAA

と、変数の直後に()が必要です。
※String型等でも同じです。
※Variant型は()無くてもRedimできます。