FreeVBCode code snippet: Check Digit MOD 10 w/ weights 7-5-3-2