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