Something like this. For the Case Else section, adjust the formula as needed.

Function MainTax(myCost As Double)

Select Case myCost
Case Is <= 0.1: MainTax = 0
Case Is <= 0.2: MainTax = 0.01
Case Is <= 0.4: MainTax = 0.02
Case Is <= 0.6: MainTax = 0.03
Case Is <= 0.8: MainTax = 0.04
Case Is <= 1: MainTax = 0.05
Case Else
MainTax = Round(myCost * 0.05, 2)
End Select

End Function


"Bamforth" wrote:

Maine 5% Sales Tax Schedule

From To Tax
$0.00 $0.10 $0.00
$0.11 $0.20 $0.01
$0.21 $0.40 $0.02
$0.41 $0.60 $0.03
$0.61 $0.80 $0.04
$0.81 $1.00 $0.05

If you normaly multiple 10 cents by .05 it equals $0.01.... That would be
wrong under their tax schedule. Can anybody help me? Thank you