Queue в VBA

[dimon124567890]

На фото в левом окне представлен массив bzan внутри каждого элемента которого еще 5 элементов. Из этого массива сформирова очередь zanatiya. В каждом элементе очереди так же те же самые 5 элементов что и в массиве bzan. В правом окне предпоследней строкой Msgbox(bzan(0)(0)) происходит вывод 0 подэлемента 0 элемента массива bzan. Задача заключается в следующем. Нужно так же, как и происходит с обращением к массиву bzan, обратиться к элементам очереди zanatiya. Как это сделать?

[shanemac51]

если я правильно поняла, то оформила бы так

Option Explicit
Type tclass
class_name As String
fam(25) As String * 7
imja(25) As String * 7
otch(25) As String * 7
droj(25) As Date
End Type
Dim shkola(30) As tclass


Sub mklass00()
Dim j1, ju
For j1 = 1 To 10
For ju = 1 To 15
With shkola(j1)
.class_name = j1 & "a"
.fam(ju) = "FF-" & ju
.imja(ju) = "II-" & ju
.otch(ju) = "OO-" & ju
.droj(ju) = DateSerial(Year(Date) -6-j1, Rnd(12) * 12, Rnd(31) * 31)
End With
Next ju
Next j1
j1 = 2
Debug.Print "'ученики класса "; shkola(j1).class_name

For ju = 1 To 15
Debug.Print "'"; ju, shkola(j1).fam(ju); shkola(j1).imja(ju); shkola(j1).otch(ju); shkola(j1).droj(ju)
Next ju
'ученики класса 2a
' 1           FF-1   II-1   OO-1   11.09.2015
' 2           FF-2   II-2   OO-2   23.05.2015
....
End Sub