Не могу достучаться к элементам класса Variant

Option Explicit
Private NameSignale As String
Private ConnectSignal As Variant
 
Property Let NameSig(NameValue As String)
 NameSignale = NameValue
End Property
 
Property Get NameSig() As String
 NameSig = NameSignale
End Property
Property Let ConnectSig(ByVal ArrValue As Variant)
 ConnectSignal = ArrValue
End Property
 
Property Get ConnectSig() As Variant
 ConnectSig = ConnectSignal
End Property

Option Explicit
Private NameCabel As String
Private StartPlace As String
Private FinishPlace As String
Private ArrSignalCabel As Variant
 
Property Let NameCab(NameValue As String)
 NameCabel = NameValue
End Property
 
Property Get NameCab() As String
 NameCab = NameCabel
End Property
Property Let StartPl(NameValue As String)
 StartPlace = NameValue
End Property
 
Property Get StartPl() As String
 StartPl = StartPlace
End Property
Property Let FinishPl(NameValue As String)
 FinishPlace = NameValue
End Property
 
Property Get FinishPl() As String
 FinishPl = FinishPlace
End Property
 
Property Let ArrSignalCab(ByVal ArrValue As Variant)
 ArrSignalCabel = ArrValue
End Property
 
Property Get ArrSignalCab() As Variant
 ArrSignalCab = ArrSignalCabel
End Property

Option Explicit
Private NamePanel As String
Private ArrPanel As Variant
 
Property Let NamePan(NameValue As String)
 NamePanel = NameValue
End Property
 
Property Get NamePan() As String
 NamePan = NamePanel
End Property
Property Let ArrCabelPan(ByVal ArrValue As Variant)
 ArrPanel = ArrValue
End Property
 
Property Get ArrCabelPan() As Variant
 ArrCabelPan = ArrPanel
End Property

Dim NameObjTM, fff As String
                Dim NameObjTM2 As Variant
                Dim NameObjTM3 As Variant
                NameObjTM = TempPanel.ArrCabelPan(i).ArrSignalCab(0).NameSig

NameObjTM2 = TempPanel.ArrCabelPan(i).ArrSignalCab
                fff = NameObjTM2(0).NameSig