Imports System

Public Module Module1

    Public Sub Main()

        dim name as string

        dim labourhours, parts as single

        const taxrate as single= 0.13

        const labourrate as single= 85

        dim labourcost, subtotal, taxes, total

        Console.WriteLine("Enter customer name:")

        name=Console.readline()

        Console.WriteLine("Enter the number of labour hours:")

        labourhours=Convert.ToSingle(Console.ReadLine())

        Console.WriteLine("Enter the cost of parts and supplies:")

        parts=Convert.ToSingle(Console.ReadLine())

        Console.WriteLine("Customer Name: "+name)

        Console.WriteLine("================================================")

        labourcost= Math.Round(labourrate*labourhours,2)

        Console.WriteLine("Labour Cost: $"+CStr(labourcost))

        parts= Math.Round(parts,2)

        Console.WriteLine("Parts and Supplies: $"+CStr(parts))

        subtotal= Math.round(labourcost+parts,2)

        Console.WriteLine("Subtotal: $"+CStr(subtotal))

        taxes= Math.Round(subtotal*taxrate,2) 

        Console.WriteLine("Taxes: $"+CStr(taxes))

        total= Math.Round(subtotal+taxes,2)

        Console.WriteLine("Total: $"+CStr(total)) 

    End Sub

End Module