Data Structure VB.Net

Imports System
Imports Microsoft.VisualBasic
Public Class SamplesArray    
    Public Shared Sub Main()
        Dim my2DArray As Array = Array.CreateInstance(GetType(String), 2, 3)
        Dim i, j As Integer        
        For i = my2DArray.GetLowerBound(0) To my2DArray.GetUpperBound(0)
            For j = my2DArray.GetLowerBound(1) To my2DArray.GetUpperBound(1)
                my2DArray.SetValue("abc" + i.ToString() + j.ToString(), i, j)
            Next j 
        Next i
        PrintValues(my2DArray)
    End Sub   
    Public Shared Sub PrintValues(myArr As Array)
        Dim myEnumerator As System.Collections.IEnumerator = myArr.GetEnumerator()
        While myEnumerator.MoveNext()
            Console.WriteLine(myEnumerator.Current)
        End While
    End Sub
End Class