como transformar numeros a letras en macros

' Función para "convertir" números a letras [1987 - 2003] _
© Desarrollada por: Héctor Miguel Orozco Díaz [México] _
Comentarios y Sugerencias: hemiordiahotmail.com '

' Iniciada en 1987 comouna "simple" Base de Datos _
usando funciones de búsqueda y una Tabla en una Hoja de Cálculo [Lotus para MS-DOS] _
actualmente "incorpora" 5 Idiomas: Español -por omisión-, Inglés, Francés,Italiano y Catalán '

' Para una Declaración Obligatoria de Variables '
Option Explicit

' Esta es la Función Principal '
Function ValorEnLetras(ByVal Ref_Valor As Variant, _Optional ByVal Unidad_Medida As String, _
Optional ByVal ID_Fracciones As String, _
Optional ByVal ID_Medida As String, _Optional ByVal Idioma As String, _
Optional ByVal MAY_min As String) As String

' Variables específicas de la función principal -español × omisión- '
Dim Abrir AsString, Cerrar As String, Prefijo As String, Pre_Frac As String, FraccionesEnLetra As Boolean, _
Decimales As Variant, PostFrac As String, Fracciones As String, LetraFracciones As String, _Grupo As Integer, TextoDelGrupo As String, Temp As String, DosPalabras As Integer, _
U_Medida_1 As String, U_Medida_2 As String, Medida_PL As String, Solitario As String, Género AsString, _
Grupo1 As String, Grupo2 As String, Grupo3 As String, Grupo4 As String, Grupo5 As String, _
ValorTotal As Variant, SumarLetras As String, ValorFinalEnLetras As String' Variables para los textos en inglés '
Dim Prefijo_US As String, Pre_Frac_US As String, _
Fracciones_US As String, LetraFracciones_US As String
ReDim TextoDelGrupo_US(9) As StringTextoDelGrupo_US(2) = " Thousand "
TextoDelGrupo_US(3) = " Million "
TextoDelGrupo_US(4) = " Billion "
TextoDelGrupo_US(5) = " Trillion "

'...