codice:
Option Explicit
Private Sub Form_Load()
Dim MioArray(2, 5, 6) As Double
Dim ElementoArray As Variant
'popolo l'array con valori casuali
Dim A As Integer, B As Integer, C As Integer
For A = 0 To 2
    For B = 0 To 5
        For C = 0 To 6
            Randomize Timer
            MioArray(A, B, C) = Int((60 * Rnd) + 1)
        Next
    Next
Next
'elenco il contenuto dell'array
For Each ElementoArray In MioArray
    Debug.Print ElementoArray
Next
End Sub
Ciauz

Chico