Arrays sometimes have more than one or two dimensions. Three-dimensional arrays are rarely useful. But the syntax is easy to understand.
Module Module1
Sub Main()
' Declare 3D array.
' ... Specify maximum indexes of dimensions.
Dim threeD(2, 4, 3) As Integer
threeD(0, 0, 0) = 1
threeD(0, 1, 0) = 2
threeD(0, 2, 0) = 3
threeD(0, 3, 0) = 4
threeD(0, 4, 0) = 5
threeD(1, 1, 1) = 2
threeD(2, 2, 2) = 3
threeD(2, 2, 3) = 4
' Loop over three dimensions and display.
For i As Integer = 0 To threeD.GetLength(2) - 1
For y As Integer = 0 To threeD.GetLength(1) - 1
For x As Integer = 0 To threeD.GetLength(0) - 1
Console.Write(threeD(x, y, i))
Next
Console.WriteLine()
Next
Console.WriteLine()
Next
End Sub
End Module
100
200
300
400
500
000
020
000
000
000
000
000
003
000
000
000
000
004
000
000