Initialize two dimensional array

Are there any shortcuts for initializing a 2D array?

I know with a 1D array I can do:

Dim names() As String = Array(“Bob”, “Tom”, “Jim”, “Will”)
or
Dim anArray(-1) as String
anArray=Split(“Adam,Aardvark,Accountant”,",")

No, but you can make it easy on yourself with a long, single dimension array in a loop, or other techniques.