Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim shoppingList() as string

        For count = Lbound(shoppingList) to Ubound(shoppingList)

            console.WriteLine("What would you like to add to your shooping list? ")

            shoppingList(count) = console.ReadLine()

        next

​

        For count = 0 to 3

            console.WriteLine("The " & count & "location contains " & shoppingList(count))

        next

    End Sub

End Module

​