You could do something like,

[vba]

'caller code

myclass.SetArray ("asdf", "safd", 1234")


'class code

Private mProperty1 As String
Private mProperty2 As String
Private mProperty3 As Long

Public Property Get Property1 As String
Property1 = mProperty1
End Property

Public Property Get Property2 As String
Property2 = mProperty2
End Property

Public Property Get Property3 As Long
Property3 = mProperty3
End Property

Public Function SetArray(ary As Variant)
mProperty1 = ary(1)
mProperty2 = ary(2)
mProperty3 = ary(3)
End Function[/vba]

although I wouldn't, I would stick with the normal approach