Imports System

Public Module Module1

    Public Sub Main()

        Dim choice as Integer

        Dim meal as String

        Dim total as Integer

        '

        Console.WriteLine("Pick a main course")

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

        Console.WriteLine("2) Chicken $7")

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

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

        Console.WriteLine("5) Steak $10")

        Console.WriteLine("6) Salad $6")

        choice = Console.ReadLine()

        select choice

        case 1:

            meal = "Burger"

            total = 5

        case 2:

            meal = "Chicken"

            total = 7

        case 3:         

            meal = "Taco"

            total = 2

        case 4:

            meal = "Fish"

            total = 6

        case 5:         

            meal = "Steak"

            total = 10

        case 6:

            meal = "Salad"

            total = 6

        case else:

            meal = "nothing"

            total = 0

        end select

        Console.WriteLine("You chose {0} your total is {1:C2} it is {2}", meal, total, "great")

    End Sub

End Module