try this

Dim MyArray(9,9,9) as Byte

Creates a 10x10x10 array of bytes.