Consider a user-defined data type. An example follows.

'declarations
Type Customer
Name as String
Purchase() As Single
End Type

Sub Main()

Dim tCust(1 to 2) As Customer
tCust(1).Name = "Bill"
ReDim tCust(1).Purchases(1 to 2)
tCust(1).Purchase(1) = 20.25
tCust(1).Purchase(2) = 29.00

End Sub

Hth,
Merjet