Imports System

Public Module Module1

    Public Sub Main()

        Dim exitBtn as String = ""

        Dim total as Decimal = ""

        Dim coupon as Boolean = ""

        While exitBtn.toUpper() <> "Q"

            Console.WriteLine("What edition are you purchasing?")

            Dim choice as String = Console.ReadLine()

            If choice = "Ultimate"

                Console.WriteLine("Do you have a coupon?")

                coupon = Console.ReadLine()

                If coupon = True

                    total = 899.99 - 10%

                    Console.WriteLine("Your total is $" + total.toString())

                Else

                    Console.WriteLine("Your total is $899.99")

                End if

                If choice = "Professional"

                    Console.WriteLine("Your total is $599.99")

                    If choice = "Student"

                        Console.writeLine("Do you have a coupon?")

                        coupon = Console.ReadLine()

                        If coupon = True

                            total = 99.99 - 20%

                            Console.WriteLine("Your total is $" + total.ToString())

                        Else

                            Console.WriteLine("Your total is $99.99")

                        End if

                    End if

                End if

                Else

                    Console.WriteLine("Please select an option.")

            End if

        End While

    End Sub

End Module