I suppose the problem I have can be summarized as being that of initializing/assigning multidimensional arrays with distinct values.. jagged arrays also, (I mean not having rows of equal length)

There has to be something better than the mess i've produced below.

I was hoping for a method similar to:
arrayname={{#,#,#},{#,#,#,#,#},{#,#,#}}

but it seems that only works in VB .Net (I found a few articles); however, i'm working in VB6.. This is how my code looks right now

'This is REALLY ugly, but couldn't find any other way to do it in VBA! ARGH!
If weightType = 0 Then 'ANO/Unit 0 Op.
weights(1, 1) = 5
weights(1, 2) = 4
weights(1, 3) = 4
weights(1, 4) = 5
weights(1, 5) = 3
weights(1, 6) = 3
weights(1, 7) = 1
weights(2, 1) = 2
weights(2, 2) = 5
weights(2, 3) = 3
weights(2, 4) = 5
weights(2, 5) = 3
weights(2, 6) = 4
weights(2, 7) = 4
weights(2, 8) = 5
weights(3, 1) = 5
weights(3, 2) = 4
weights(3, 3) = 5
weights(3, 4) = 5
weights(3, 5) = 3
weights(3, 6) = 2
weights(3, 7) = 2
weights(3, 8) = 5
weights(3, 9) = 4
weights(3, 10) = 3
weights(4, 1) = 3
weights(4, 2) = 4
weights(4, 3) = 5
weights(5, 1) = 5
weights(5, 2) = 3
weights(5, 3) = 5
weights(5, 4) = 2
weights(5, 5) = 3
weights(5, 6) = 3
Else 'Shift Manager
weights(1, 1) = 5
weights(1, 2) = 4
weights(1, 3) = 4
weights(1, 4) = 5
weights(1, 5) = 3
weights(1, 6) = 5
weights(2, 1) = 2
weights(2, 2) = 5
weights(2, 3) = 5
weights(2, 4) = 3
weights(2, 5) = 4
weights(2, 6) = 4
weights(2, 7) = 4
weights(2, 8) = 5
weights(3, 1) = 5
weights(3, 2) = 4
weights(3, 3) = 5
weights(3, 4) = 5
weights(3, 5) = 3
weights(3, 6) = 2
weights(3, 7) = 2
weights(3, 8) = 5
weights(3, 9) = 4
weights(3, 10) = 3
weights(3, 11) = 5
weights(3, 12) = 4
weights(3, 13) = 5
weights(4, 1) = 3
weights(4, 2) = 5
weights(4, 3) = 3
weights(5, 1) = 5
weights(5, 2) = 3
weights(5, 3) = 5
weights(5, 4) = 3
weights(5, 5) = 2
weights(5, 6) = 3
End If

thank you for your help,
Skawky