Imports System, Microsoft.VisualBasic
Const TAX_RATE As Single = 0.06625
Console.WriteLine("Enter total of items:")
Total = Console.ReadLine()
Subtotal = total - discount
Salestax = subtotal * TAX_RATE
finalcost = subtotal + salestax
Console.WriteLine("Discount: " & formatcurrency(discount))
Console.WriteLine("Subtotal: " & formatcurrency(subtotal))
Console.WriteLine("Salestax: " & formatcurrency(salestax))
Console.WriteLine("Finalcost: " & formatcurrency(finalcost))