Module Module1
Sub Main()
Dim array As Integer(,) = SetArray()
Print(array)
End Sub
Private Function SetArray() As Integer(,)
Dim array As Integer(,) = {{1, 2}, {3, 4}, {5, 6}, {7, 8}}
Return array
End Function
Private Sub Print(array As Integer(,))
For i = 0 To array.GetUpperBound(0)
For j = 0 To array.GetUpperBound(1)
Console.Write($"{array(i, j)} ")
Next
Console.WriteLine()
Next
End Sub
End Module
' run:
'
' 1 2
' 3 4
' 5 6
' 7 8