Sub AppStart (Args() As String)
Dim mat(0, 0) As String = Create2DArrayOfStrings(Array( _
Array As String("a", "b", "c", "d"), _
Array As String("aa", "bb", "cc", "dd"), _
Array As String("aaa", "bbb", "ccc", "ddd")))
Log(mat(0, 2))
Log(mat(1, 3))
End Sub
Private Sub Create2DArrayOfStrings (Rows() As Object) As String(,)
Dim FirstRow() As String = Rows(0)
Dim result(Rows.Length, FirstRow.Length) As String
For r = 0 To Rows.Length - 1
Dim row() As String = Rows(r)
For c = 0 To FirstRow.Length - 1
result(r, c) = row(c)
Next
Next
Return result
End Sub