Imports System

Public Module Module1

    Public Sub Main()

        dim choice = " "

        dim button = " "

        do

        Console.WriteLine("Please enter your selected drink ")

            button = Console.ReadLine()

            If 1 < button < 9 then

                choice =  choice & button

                Console.WriteLine(choice)

            elseif button = "cancel" or "Cancel" then

                choice = " " 

            end if

        loop button = "ok"

    End Sub

End Module