Imports System

Public Module Module1

    Public Sub Main()

        Dim Menu as String

        Dim Mayo as String

        Dim quit as String

        Console.WriteLine("Please select a meal from the menu")

        Console.WriteLine("Pizza, Burger, Salad, Hotdog, Apple")

        Console.Writeline("If you would like to quit press 'q' ")

​

        Menu = Console.Readline()

            Do 

        Select Case Menu

        Case = "Salad" 

            Console.WriteLine("Nice choice!")

            Console.Writeline("Would you like mayo with this? Yes/No")

            Mayo = Console.Readline()

            If Mayo = "Yes" Then

                Console.Writeline("So close to being healthy")

            End If

        Case = "Apple"

            Console.Writeline("Nice choice!")

            Console.Writeline("Would you like mayo with this? Yes/No")

            Mayo = Console.Readline()

            If Mayo = "Yes" Then

                Console.Writeline("OOhhhh, you were so close to being healthy")

            End If

        Case Else

            Console.Writeline("Remember, you are what you eat!")

        End select

            quit = Console.Readline()

        loop until quit = "q"

    End Sub

End Module