Imports System, Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Const TAX_RATE As Single = 0.06625

        Const DISCOUNT_RATE As Single = 0.2                                                 'Declare Variables

        Dim subTotal, finalCost, discountTotal, salesTax, totalCost As Single

        Console.WriteLine("Enter the total cost of items: ")                                'User Input

        totalCost = Console.ReadLine()

        discountTotal = totalCost * DISCOUNT_RATE

        subTotal = totalCost - discountTotal                                                'Calculation

        salesTax = subTotal * TAX_RATE

        finalCost = subTotal + salesTax

        Console.WriteLine("Discount: " & FormatCurrency(discountTotal))

        Console.WriteLine("Subtotal: " & FormatCurrency(subTotal))                          'Output

        Console.WriteLine("Sales Tax: " & FormatCurrency(salesTax))

        Console.WriteLine("Final Cost: " & FormatCurrency(finalCost))

    End Sub

End Module