Ok Thanks, but can you like just show me how it would look Code wise? i am not asking to be fed the code, I just am a newbie and have no clue what to type it in as. But wouldnt it be \2000 and not \20?

So would it look like

For Private Sub BtnCalculate Click(....
If Chktwenty.Checked=False then
---->intTwenty=intchange\2000
---->intChange=intChangeMod2000
lblTwenty=intTwenty