FreeVBCode code snippet: Abbreviate Text