Hi Bruce,

Yes, this is what I ended up using:

Dim nConstant As Decimal
Dim nInput As Double
Dim nNewValue As Double

nInput = Convert.ToDouble(txbAMSEZPay.Text)
nConstant = 3

nNewValue = ((Math.Floor(100 * (nInput / nConstant))) / 100) * nConstant

All of the below are rounding up:

iNumber = Convert.ToInt32(nDouble)
iNumber = nDouble \ 1
iNumber = nDouble
iNumber = CType(nDouble, Integer)
iNumber = Math.Round(nDouble, 0)
iNumber = Math.Ceiling(nDouble, 0)

Thank you,
Daniel