Imports System

Public Module Module1

    Public Sub Main()

        Dim item1 as Decimal

        Dim item2 as Decimal

        Dim item3 as Decimal

        Dim item4 as Decimal

        Dim item5 as Decimal

        Dim subTotal as Decimal

        Dim taxAmount as Decimal

        Dim totalTotal as Decimal

        Console.WriteLine("Please enter the price of item 1: ")

        item1 = Console.ReadLine( )

        Console.WriteLine("Please enter the price of item 2: ")

        item2 = Console.ReadLine()

        Console.WriteLine("Please enter the price of item 3: ")

        item3 = Console.ReadLine()

        Console.Writeline("Please enter the price of item 4: ")

        item4 = Console.ReadLine()

        Console.WriteLine("Please enter the price of item 5: ")

        item5 = Console.ReadLine()

        subTotal = item1 + item2 + item3 + item4 + item5

        taxAmount = subtotal * .06

        totalTotal = subTotal + taxAmount

        Console.WriteLine("Your subtotal is: " & subTotal)

        Console.WriteLine("Your Tax Amount is: " & taxAmount)

        Console.WriteLine("Your Purchase total is: " & totalTotal)

    End Sub

End Module