Module Module1
Sub Main()
Dim arr As String(,,) = {{{"aaa", "bbb", "ccc", "ddd"}, {"eee", "fff", "ggg", "hhh"}, {"eee", "fff", "ggg", "hhh"}},
{{"iii", "jjj", "kkk", "lll"}, {"mmm", "nnn", "ooo", "ppp"}, {"qqq", "rrr", "sss", "ttt"}}}
Console.WriteLine("arr(0, 2, 1): {0}", arr.GetValue(0, 2, 1))
Console.WriteLine("arr(1, 2, 3): {0}", arr.GetValue(1, 2, 3))
End Sub
End Module
' run:
'
' arr(0, 2, 1): fff
' arr(1, 2, 3): ttt
'