FreeVBCode code snippet: Convert a Decimal to a Fraction