Convert Excel function or VBA for use in Word macros

Question

I use the following function or VBA in Excel to convert numbers to letters. This code works well in Excel.

Global AlphaNumeric1(0 To 19) As String
Global AlphaNum