Imports System

Public Module Module1

    Public Sub Main()

        Dim varPrice as decimal = 0

        Dim strRead as string = ""

        Console.WriteLine("Type one of the following: B for Basic, S for Silver, G for Gold, D for Diamond.")

        strRead = Console.ReadLine()

        If strRead.ToUpper = "B" then

            varPrice = 24.99

        ElseIf strRead.ToUpper = "S" then

            varPrice = 42.99

        ElseIf strRead.ToUpper = "G" then

            varPrice = 84.99

        ElseIf strRead.ToUpper = "D" then

            varPrice = 99.99

        Else

            Console.WriteLine("Try again")

        End If

        If varPrice > 0 then

            Console.WriteLine("Do you want cinematic movie channels? (Y/N)")

            strRead = Console.ReadLine()

            If strRead.ToUpper = "Y" then

                varPrice = varPrice + 9.50

            End If

            Console.WriteLine("Do you want HBI movie channels? (Y/N)")

            strRead = Console.ReadLine()

            If strRead.ToUpper = "Y" then

                varPrice = varPrice + 9.50

            End If

            Console.WriteLine("Do you want showtimer movie channels? (Y/N)")

            strRead = Console.ReadLine()

            If strRead.ToUpper = "Y" then

                varPrice = varPrice + 10.50

            End If

            Console.WriteLine("Do you want local stations? (Y/N)")

            strRead = Console.ReadLine()

            If strRead.ToUpper = "Y" then

                varPrice = varPrice + 9.50

            End If

            Console.WriteLine("The total cost is " & varPrice)

        End If

    End Sub

End Module