Data Structure VB.Net

Imports System
Public Class SamplesArray
    Public Shared Sub Main()
        Dim myArr As String() =  {"The", "quick", "brown", "fox", "jumps", "over", "the", "lazy", "dog"}
        PrintIndexAndValues(myArr)
        Array.Resize(myArr, myArr.Length + 5)
        PrintIndexAndValues(myArr)
        Array.Resize(myArr, 4)
        PrintIndexAndValues(myArr)
    End Sub 'Main
    Public Shared Sub PrintIndexAndValues(myArr() As String)
        Dim i As Integer
        For i = 0 To myArr.Length - 1
            Console.WriteLine("[{0}] : {1}", i, myArr(i))
        Next i
    End Sub
End Class