Un array a 3 dimensioni non ti basta?

Dim TuoArray(3,3,3) As Integer