Imports System
Public Module Module1
Public Sub Main()
Dim shoppinglist(3) as string
Console.writeline("What would you like to buy?")
For i = 0 to 3
Shoppinglist(i) = console.readline()
Next
console.writeline("The " & i & " location contains: " & shoppinglist(i))
End Sub
End Module