[LightImage]

В модуле класса Class1:

Option Explicit
Dim myvalue

Property Let Svoystvo(A)
    myvalue = A
End Property

Property Get Svoystvo()
    Svoystvo = myvalue
End Property

В другом модуле для тестирования используем следующий код:

Sub test()
Dim C As Class1
Dim v(1 To 4) As Integer, i As Integer, s As String
    Set C = New Class1
    v(1) = 4
    v(2) = 3
    v(3) = 2
    v(4) = 1
    C.Svoystvo = v
    s = s & "TypeName(C.Svoystvo) == " & TypeName(C.Svoystvo)
    For i = 1 To 4
        s = s & vbCrLf & "C.Svoystvo(" & i & ") == " & C.Svoystvo(i)
    Next i
    MsgBox s
End Sub