Imports System, Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Dim mealType as Char

        Dim drinkSize as Char

        Dim finalCost As Single

        Console.WriteLine ("Please enter if you would like a combo (C) or regular (R) meal?")

        mealType = Console.ReadLine()

        Console.WriteLine ("Please enter a drink size   small (S) , medium (M) , large (L) ")

        drinkSize = Console.ReadLine()

        If mealType = "C" And drinkSize = "S" Then

            finalCost = 8

        ElseIf mealType = "C" And drinkSize = "M" Then

            finalCost = 8.5

        ElseIf mealType = "C" And drinkSize = "L" Then

            finalCost = 9

        ElseIf mealType = "R" And drinkSize = "S" Then

            finalCost = 6

        ElseIf mealType = "R" And drinkSize = "M" Then

            finalCost = 6.5

        ElseIf mealType = "R" And drinkSize = "L" Then

            finalCost = 7

        End If

        Console.WriteLine ("your total is... " & FormatCurrency(finalCost))

    End Sub

End Module