Imports System, Microsoft.VisualBasic

'Josh LaRusso

'10/29/21

'Discount Program

Public Module Module1

    Public Sub Main()

        dim cost as single

        dim discount as single

        dim subTotal as single              'step 1

        dim salesTax as single

        dim finalCost as single

        const TAX_RATE as single = .06625

        Console.WriteLine("Enter total cost of items: ")            'step 2

        cost = console.ReadLine() 

        discount = cost * 0.2

        subTotal = cost - discount

        salesTax = TAX_RATE * subTotal

        finalCost = subTotal + salesTax

        console.WriteLine("Discount: " & FormatCurrency(discount))

        console.WriteLine("Subtotal: " & FormatCurrency(subTotal))

        console.WriteLine("Sales Tax: " & FormatCurrency(salesTax))                 'step 4

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

    End Sub

End Module