Chiedo aiuto per listato

[Cinzia27]

Chiedo aiuto ai grandi del listati.
Questo script creato da me genera

Option Explicit
Sub Main
Dim n(12),st,cc,w,num1,num2,num3,num4,num5,num6,num7,num8,num9,num10,num11,num12
Dim y1,y2,y3,y4,y5,y6,y7,y8,y9,y10,y11,y12,at,fr
Dim a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12
Dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,ru(11)
r1 = 1:r2 = 2:r3 = 3:r4 = 4:r5 = 5:r6 = 6:r7 = 7:r8 = 8:r9 = 9:r10 = 10:r11 = 12
ru(1) = r1:ru(2) = r2:ru(3) = r3:ru(4) = r4:ru(5) = r5:ru(6) = r6:ru(7) = r7:ru(8) = r8:ru(9) = r9:ru(10) = r10:ru(11) = r11
w = 3


num1 = Array(86)
num2 = Array(73)
num3 = Array(55,58,59,76,78,80)
num4 = Array(62,63,69,82,84,89)
num5 = Array(01,06,24,28,42,48)
num6 = Array(02,07,08,21,27,44)
num7 = Array(11,16,31,39)
num8 = Array(12,17,34)
num9 = Array(60,63,87)
num10 = Array(50,53,77)
num11 = Array(26,47,72)
num12 = Array(10,37,40)

'y1 = UBound(num1)
'y2 = UBound(num2)
y3 = UBound(num3)
y4 = UBound(num4)
y5 = UBound(num5)
y6 = UBound(num6)
y7 = UBound(num7)
y8 = UBound(num8)
y9 = UBound(num9)
y10 = UBound(num10)
y11 = UBound(num11)
y12 = UBound(num12)

'For a1 = 0 To y1
'If ScriptInterrotto Then Exit For
'For a2 = 0 To y2
'If ScriptInterrotto Then Exit For
For a3 = 0 To y3
If ScriptInterrotto Then Exit For
For a4 = 0 To y4
If ScriptInterrotto Then Exit For
For a5 = 0 To y5
If ScriptInterrotto Then Exit For
For a6 = 0 To y6
If ScriptInterrotto Then Exit For
For a7 = 0 To y7
If ScriptInterrotto Then Exit For
For a8 = 0 To y8
If ScriptInterrotto Then Exit For
For a9 = 0 To y9
If ScriptInterrotto Then Exit For
For a10 = 0 To y10
If ScriptInterrotto Then Exit For
For a11 = 0 To y11
If ScriptInterrotto Then Exit For
For a12 = 0 To y12
If ScriptInterrotto Then Exit For

n(1) = num1(a1)
n(2) = num2(a2)
n(3) = num3(a3)
n(4) = num4(a4)
n(5) = num5(a5)
n(6) = num6(a6)
n(7) = num7(a7)
n(8) = num8(a8)
n(9) = num9(a9)
n(10) = num10(a10)
n(11) = num11(a11)
n(12) = num12(a12)
st = SerieStoricoTurbo(7440,EstrazioneFin,n,ru,w)
If st < 30 Then
at = SerieRitardoTurbo(EstrazioneFin - 40,EstrazioneFin,n,ru,w)'7440
If at = st Then

fr = SerieFreqTurbo(7440,EstrazioneFin,n,ru,w)
'If fr > 5100 Then

cc = cc + 1
Messaggio FormatSpace(cc,5,1) & " " & StringaNumeri(n) & " st " & FormatSpace(st,3,1) & " at " & FormatSpace(at,3,1) & " fr" & FormatSpace(fr,3,1)

'Scrivi FormatSpace(cc,5,1) & " " & StringaNumeri(n) & " st " & FormatSpace(st,3,1)
Scrivi "aa(" &(cc) & ") = Array(0," & StringaNumeri(n) & ") 'st " & st & " at " & FormatSpace(at,3,1) & "  fr" & FormatSpace(fr,3,1)
End If
End If
'End If
'Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

formazioni con un solo numero per Array, ma la lunghezza è rigida, 12 elementi.
Io avrei bisogno che facesse le stesse cose però con classi minori(ad esempio, cinquine, sestine... fino a decine).
E' possibile?