'Klassenvariablen
Public m_sVar As String
Private m_T2() As Typ2
 
'Das Get Property um das Array der anderen Klasse abzufragen
Public Property Get T2() As Typ2()
    T2 = m_T2
End Property
 
'Ein Funktion um das Array zu initialisieren und mit Dummy Werte zu füllen.
Public Function load()
'Dummyvariable
    Dim T2_1 As New Typ2
'Arraygröße anpassen
    ReDim m_T2(2)
'Dummy 1 füllen
    T2_1.sVar = "Nr. 1"
    Set m_T2(0) = New Typ2
    Set m_T2(0) = T2_1
'Dummy 2 füllen  
    Set T2_1 = Nothing
    Set T2_1 = New Typ2
    T2_1.sVar = "Nr. 2"
    Set m_T2(1) = New Typ2
    Set m_T2(1) = T2_1
'Dummy 3 füllen
    Set T2_1 = Nothing
    Set T2_1 = New Typ2
    T2_1.sVar = "Nr. 3"
    Set m_T2(2) = New Typ2
    Set m_T2(2) = T2_1
End Function

'Kurz und knapp:
Public sVar As String
Public T1 As Typ1

'Testen der Dummyklassen
'Deklarieren der Klassen
Dim oTyp1 As New Typ1
Dim oTyp2 As New Typ2
'Array von Typ 2 das durch Get Property gefüllt wird um die Dummy Werte aus 
' Typ1 auszugeben
Dim oTempT2() As Typ2
 
Beschreiben von Typ2.T1 zum Testen.
Set oTyp2.T1 = oTyp1
 
'Dummy Werte in T1 initialisieren
oTyp1.load
'Das Array der Typ2 von Typ1 holen und der Dummy Variable zuweisen
oTempT2 = oTyp1.T2
'Die Dummy Werte ausgeben
Debug.Print oTempT2(0).sVar
Debug.Print oTempT2(1).sVar
Debug.Print oTempT2(2).sVar