Array Aufruf in verschachtelte Klassen

Sub Test()
Dim outerObj As Aussen
Set outerObj = New Aussen
outerObj.init
End Sub

Option Explicit
Dim i As Integer
Dim j As Integer
Dim innerObj() As Innen
Sub init()
ReDim innerObj(2)
For i = 1 To 2
Set innerObj(i) = New Innen
innerObj(i).init Me
Next
For i = 1 To 2
MsgBox innerObj(i).nArr         'Output funkt, nicht Array funkt einwandfrei
For j = 1 To 3
MsgBox innerObj(i).Arr(j)   'Output schlägt fehl, diese Zeile möchte ich haben...
Next
Next
End Sub

Option Explicit
Private intnArr  As Integer
Private intArr()   As Integer
Dim i              As Integer
Dim outerObj       As Aussen
Sub init(outer As Aussen)
Set outerObj = outer
nArr = 10
ReDim Arr(5)
For i = 1 To 3
Arr(i) = i * 2
Next
MsgBox nArr             'Output
For i = 1 To 3
MsgBox Arr(i)       'Output in der Klasse selbst funktioniert
Next
End Sub
Property Get nArr() As Integer
nArr = intnArr
End Property
Property Let nArr(ByVal mynArr As Integer)
intnArr = mynArr
End Property
Property Get Arr(ByVal i As Integer) As Integer
Arr = intArr(i)
End Property
Property Let Arr(ByVal i As Integer, ByVal myArr As Integer)
intArr(i) = myArr
End Property