Imports System

Public Module Module1

     Sub Main()

        ' Create a List.

​

        ' Create a String array.

        Dim array1(3) As String

        array1(0) = "ONE"

        array1(1) = "TWO"

        array1(2) = "THREE"

        array1(3) = "FOUR"

        ' Pass both to the Display sub.

​

        ' Loop over IEnumerable.

        for i=0 to array1(3).Length +1

        For Each value As String In array1(i)

            Console.WriteLine("Value: {0}", value)

        Next

next i

        Console.WriteLine()

end sub

End Module