Formating Inputes

[Akinyemi]

I am currently puting finishing touches to a Tax Computin Software. But I am worried about the number of decimal place the program displays - Four decimal place. And some of the fields display only one decimal place while some do not at all!

The program has Basic Salary, Housing Allowance ..., Gross Pay , Reliefs, Taxable Pay, Annual Tax payable, and Monthly Tax Payable fields. I declared all the variables As Currency.

I want the program to display only two decimal place. From the Visual Basic 6 books I use, it is clear that Currency Data type estimates to four decimal place.

Please what do I do to make the program display only two decimal place?

Below is part of my codes:
If Val(txtTaxablePay.Text) <= 30000 Then
a = Val(txtTaxablePay.Text) * 0.05
txtAnnualTaxPayable.Text = a
ElseIf Val(txtTaxablePay.Text) <= 60000 Then
b = Val(txtTaxablePay.Text) - 30000
a = 30000 * 0.05
c = b * 0.1
txtAnnualTaxPayable.Text = a + c
ElseIf Val(txtTaxablePay.Text) <= 110000 Then
b = Val(txtTaxablePay.Text) - 60000
a = 30000 * 0.05
c = 30000 * 0.1
d = b * 0.15
txtAnnualTaxPayable.Text = a + c + d
ElseIf Val(txtTaxablePay.Text) <= 160000 Then
b = Val(txtTaxablePay.Text) - 110000
a = 30000 * 0.05
c = 30000 * 0.1
d = 50000 * 0.15
e = b * 0.2
txtAnnualTaxPayable.Text = a + c + d + e
ElseIf Val(txtTaxablePay.Text) > 160000 Then
b = Val(txtTaxablePay.Text) - 160000
a = 30000 * 0.05
c = 30000 * 0.1
d = 50000 * 0.15
e = 50000 * 0.2
f = b * 0.25
txtAnnualTaxPayable.Text = a + c + d + e + f

End If
curMonthlyTaxPayable = Val(txtMonthlyTaxPayable.Text)

txtMonthlyTaxPayable.Text = Format(curMonthlycurTaxPayable, "Currency")


Thank you.

Akinyemi