Converting Numbers to Words for Checks

If anybody has efficient VB code for this and wouldn’t mind sharing it, I would appreciate it. Some time ago If ran across a neat solution and never thought I might need it some day and save time.