How to create multiple arrays dynamically in VBA

Question

I need to create Multiple arrays to store my values .Can anyone please give me the solution?

 

 

For i = 1 To 6
Dim oFirst_family As MaterialFamily
Dim ifno As Integer
ifno = i
Set oFirst_family = cFamilies_list.Item(ifamily_no)
Dim sFamilyName As String
sFamilyName = oFirst_family.Name
MsgBox sFamilyName
Set cMaterials_list = oFirst_family.Materials
iNb_materials = cMaterials_list.Count
//Here i want to create multiple arrays for every iteration .
For j = 1 To iNb_materials
imaterial_no = j
Set oMaterial1 = cMaterials_list.Item(imaterial_no)
ReDim Preserve test(j)
test(j) = oMaterial1.Name

Next

Next