Module Module1

    Sub Main()
        'Declare variables
        Dim monthlySales As Double
        Dim monthlyGoal As Double

        'Get inputs
        Console.WriteLine("Enter the sales goal of the month: ")
        monthlyGoal = (Console.ReadLine())
        Console.WriteLine("Enter your monthly sales: ")
        monthlySales = (Console.ReadLine())

        If ( monthlySales = monthlyGoal ) Then
            Console.WriteLine("You earned a $5000 bonus!")
        Else If ( monthlySales > monthlyGoal ) And (monthlyGoal < monthlyGoal * 1.05) Then
                Console.WriteLine("You get a $5000 bonus plus a sponsored lunch.")
        Else If ( monthlySales >= monthlyGoal * 1.05 ) And (monthlyGoal < monthlyGoal * 1.1) Then
                Console.WriteLine("You get a $5000 bonus plus a ticket to the Macomb Center for the Performing Arts.")
        Else If ( monthlySales >= monthlyGoal * 1.1 And monthlyGoal ) < ( monthlyGoal * 1.15 ) Then
                Console.WriteLine("You get a $5000 bonus plus a ticket to see the Detroit Red Wings.")
        Else If ( monthlySales >= monthlyGoal * 1.15 ) And ( monthlyGoal < monthlyGoal * 1.2 ) Then
                Console.WriteLine("You get $7500.")
        Else If ( monthlySales >= monthlyGoal * 1.2 ) And ( monthlyGoal < monthlyGoal * 1.25 ) Then
                Console.WriteLine("You get $7500 and the afternoon off.")
        Else If ( monthlySales >= monthlyGoal * 1.25 ) Then
                Console.WriteLine("You get $7500 plus a day off!")
        Else
                Console.WriteLine("You get nothing!")
    End Sub