FreeVBCode code snippet: Calculate Mod 10 Check Digit