You should be able to use the InStr() function in conjunction with the len() function to test for the presence of the decimal point. If so, adjust the value back to having only two digits after the decimal point. The code would look something like this:
If InStr(Me.amount, ".") <> 0 And...