Imports System

Public Module Module1

    Public Sub Main()

        Dim choice as Integer

        Dim choice2 as Integer

        Dim choice3 as Integer

        Dim side as String

        Dim meal as String

        Dim drink as String

        Dim mealprice as Integer

        Dim sideprice as Integer

        Dim drinkprice as Integer

        Dim total as Integer

        '

        Console.WriteLine("Pick a main course")

        Console.WriteLine("1) Hamburger $5")

        Console.WriteLine("2) Salad $3")

        Console.WriteLine("3) Chicken $6")

        Console.WriteLine("4) Fish $4")

        choice = Console.ReadLine()

        select choice

        case 1:

            meal = "Hamburger"

            mealprice = 5

        case 2:

            meal = "Salad"

            mealprice = 3

        case 3:         

            meal = "Chicken"

            mealprice = 6

        case 4:

            meal = "Fish"

            mealprice = 4

        case else:

            meal = "nothing"

            mealprice = 0

        end select

        Console.WriteLine("Pick a side item.")

        Console.WriteLine("1) Small Fries $1")

        Console.WriteLine("2) Large Fries $3")

        choice2 = Console.ReadLine()

        select choice2

        case 1:

            side = "Small Fries"

            sideprice = 1

        case 2: 

            side = "Large Fries"

            sideprice = 3

        case else: 

            side = "no side"

            sideprice = 0

        end select

        Console.WriteLine("Pick a drink.")

        Console.WriteLine("1) Water $1")

        Console.WriteLine("2) Soda $2")

        Console.WriteLine("3) Coffee $4")

        choice3 = Console.ReadLine()

        select choice3

        case 1: 

            drink = "Water"

            drinkprice = 1

        case 2: 

            drink = "Soda"

            drinkprice = 2

        case 3: 

            drink = "Coffee"

            drinkprice = 4

        case else: 

            drink = "no drink"

            drinkprice = 0

        end select

        total = (mealprice + sideprice + drinkprice)

        Console.WriteLine("You chose {0} with {1} and {2}. Your total is {3:C2}.", meal, side, drink, total*1.07)

    End Sub

End Module