Imports System

Public Module Module1

    Public Sub Main()

        Dim shoppinglist(3) as string

        for i = 0 to 3

        shoppinglist(i) = console.readline()

    next

    for i = 0 to 3

    console.WriteLine( "location " & i &" contains: "&shoppinglist(i))

    next

​

    End Sub

End Module