Price calculator

        Dim ttbar As Integer
        Dim pg As Integer
        Dim ktc As Integer
        Dim tfktc As Integer
        Dim wt As Decimal
        Dim ppercent As Decimal
        Dim grosswt As Decimal
        Dim labourprice As Decimal
        Dim labour As Decimal
        Dim price As Decimal
        Dim stonecharges As Decimal
        Dim lop As Char


        Console.WriteLine("Dear Sir! Please Enter Today Price Of TT Bar")
        ttbar = Console.ReadLine
        pg = ttbar / 116.64
        Do

            Console.WriteLine("24KT = " & pg * 12.15)
            Console.WriteLine("22KT = " & (pg * 12.15) - 2000)
            Console.WriteLine("21KT = " & (pg * 12.15) - 3000)

            Console.WriteLine("Type 21 for 21KT OR 22 for 22KT")
            ktc = Console.ReadLine
            If ktc = "22" Then
                tfktc = (pg * 12.15) - 2000
            ElseIf ktc = "21" Then
                tfktc = (pg * 12.15) - 3000
            Else
                Console.WriteLine("Invaild Input")
            End If

            Console.WriteLine("Please Enter WT in Grams")
            wt = Console.ReadLine

            Console.WriteLine("Please Enter Stone Charges")
            stonecharges = Console.ReadLine

            Console.WriteLine("Please Enter Polish in %")
            ppercent = Console.ReadLine
            grosswt = (wt * ppercent / 100) + wt

            Console.WriteLine("Please Enter Labour Charges")
            labourprice = Console.ReadLine
            labour = grosswt / 12.15 * labourprice

            price = (grosswt * tfktc) + labour + stonecharges

            Console.WriteLine("Price PKR " & price & " " & " And weight is " & grosswt / 12.15)
            Console.WriteLine(" ")

            Console.WriteLine("Press Y For New Calulation")
            lop = Console.ReadLine
            Console.Clear()
        Loop Until lop = "Y"

        Console.ReadKey()