Imports System

Public Module Module1

    Public Sub Main()

        Dim spl(9) as string

        Dim i as integer

        console.WriteLine("enter the shopping list")

        for i = 0 to 9

        spl(i) = console.ReadLine()

        If spl(i) = "." then

            console.WriteLine("that's all on the list")

            exit for

​

        End if

    next

    End Sub

End Module