Imports System

Public Module Module1

    Public Sub Main()

        Dim shoppingLIst As String = "Apples,Oranges,Bananas"

        Dim shoppingItem(2) As String

        shoppingItem = shoppingList.Split(","c)

        For i as Integer = 0 to 2

        Console.WriteLine(shoppingItem(i))

        Next

    End Sub

End Module