Imports System, Microsoft.VisualBasic
const TAX_RATE as decimal = 0.06625
Dim discount, subtotal, salesTax, finalCost, input as decimal
Console.Write("Enter total cost of items: ")
input = Console.ReadLine()
subtotal = input - discount
salesTax = subtotal * TAX_RATE
finalCost = salesTax + subtotal
Console.WriteLine("Discount: " & FormatCurrency(discount))
Console.WriteLine("Subtotal: " & FormatCurrency(subtotal))
Console.WriteLine("Sales Tax: " & FormatCurrency(salesTax))
Console.WriteLine("Final Cost: " & FormatCurrency(finalCost))