Standard module:
Dim MyVar(1 To 10, 1 To 10) As MyClass
Set MyVar(1 To 10, 1 To 10) = New MyClass
MyVar(1, 1).Category = "Some category"
MyVar(2, 1).Fruit = "Some fruit"
MyClass:
Private pCategory As Variant
Private pFruit As Variant
Public Property Get Category() As Variant...