FreeVBCode code snippet: Factorial