Como convertir los números a letras en todas la monedas soles dólares euros y mucho más

Aquí debajo les comparto el código Utilizado

 

Option Explicit 'Función programada ' PTC. EDILBERTO MEJIA DIAZ - 2017- SUPERACIONINTERNCIOANAL.BLOGSPOT.COM Function ExcelenLetras(Valor, Optional ByVal Tipo As Byte = 1) As String 'funcion Principal ' If Not IsNumeric(Valor) Then ExcelenLetras = "INGRESE UN NÚMERO CORRECTO A SU FACTURA": Exit Function End If: Dim Moneda As String, Fracs As String, Cents As Integer If Int(Abs(Valor)) = 1 Then Moneda = " " Else Moneda = " " If Right(Letras(Abs(Int(Valor))), 6) = "illón " Or _ Right(Letras(Abs(Int(Valor))), 8) = "illones " Then Moneda = "de" & Moneda Cents = Application.Round(Abs(Valor) - Int(Abs(Valor)), 2) * 100 Cents = Application.Round(Abs(Valor) - Int(Abs(Valor)), 2) * 100 If Cents = 1 Then Fracs = " " Else Fracs = "/100 DOLARES *******" If Cents = 0 Then Fracs = "" & "con" & " 00/100 DOLARES *******" Else Fracs = "con " & (Cents) & Fracs If Cents = 1 Then Fracs = "" & "con" & " 01/100 DOLARES *******" If Cents = 2 Then Fracs = "" & "con" & " 02/100 DOLARES *******" If Cents = 3 Then Fracs = "" & "con" & " 03/100 DOLARES *******" If Cents = 4 Then Fracs = "" & "con" & " 04/100 DOLARES *******" If Cents = 5 Then Fracs = "" & "con" & " 05/100 DOLARES *******" If Cents = 6 Then Fracs = "" & "con" & " 06/100 DOLARES *******" If Cents = 7 Then Fracs = "" & "con" & " 07/100 DOLARES *******" If Cents = 8 Then Fracs = "" & "con" & " 08/100 DOLARES *******" If Cents = 9 Then Fracs = "" & "con" & " 09/100 DOLARES *******" ExcelenLetras = Letras(Int(Abs(Valor))) & Moneda & Fracs If Valor < 0 Then ExcelenLetras = "menos " & ExcelenLetras If Tipo = 1 Then ExcelenLetras = UCase(ExcelenLetras) ' TODO EN MAYUSCULAS ' ExcelenLetras = ExcelenLetras & "" & "" End Function Private Function Letras(Valor) As String ' Función Auxiliar [uso 'exclusivo'de la funcion 'principal'] ' Select Case Int(Valor) Case 0: Letras = "Cero" Case 1: Letras = "Uno" Case 2: Letras = "Dos" Case 3: Letras = "Tres" Case 4: Letras = "Cuatro" Case 5: Letras = "Cinco" Case 6: Letras = "Seis" Case 7: Letras = "Siete" Case 8: Letras = "Ocho" Case 9: Letras = "Nueve" Case 10: Letras = "Diez" Case 11: Letras = "Once" Case 12: Letras = "Doce" Case 13: Letras = "Trece" Case 14: Letras = "Catorce" Case 15: Letras = "Quince" Case 16: Letras = "Dieciseis" Case 17: Letras = "Diecisiete" Case 18: Letras = "Dieciocho" Case 19: Letras = "Diecinueve" Case 20: Letras = "Veinte" Case Is < 20: Letras = "Dieci" & Letras(Valor - 10) Case 20: Letras = "Veinte" Case Is < 30: Letras = "Veinti" & Letras(Valor - 20) Case 30: Letras = "treinta" Case 40: Letras = "cuarenta" Case 50: Letras = "cincuenta" Case 60: Letras = "sesenta" Case 70: Letras = "setenta" Case 80: Letras = "ochenta" Case 90: Letras = "noventa" Case Is < 100: Letras = Letras(Int(Valor \ 10) * 10) & " y " & Letras(Valor Mod 10) Case 100: Letras = "cien" Case Is < 200: Letras = "ciento " & Letras(Valor - 100) Case 200, 300, 400, 600, 800: Letras = Letras(Int(Valor \ 100)) & "cientos" Case 500: Letras = "quinientos" Case 700: Letras = "setecientos" Case 900: Letras = "novecientos" Case Is < 1000: Letras = Letras(Int(Valor \ 100) * 100) & " " & Letras(Valor Mod 100) Case 1000: Letras = " un mil" Case Is < 2000: Letras = "un mil " & Letras(Valor Mod 1000) Case Is < 1000000: Letras = Letras(Int(Valor \ 1000)) & " mil" If Valor Mod 1000 Then Letras = Letras & " " & Letras(Valor Mod 1000) Case 1000000: Letras = "un millón " Case Is < 2000000: Letras = "un millón " & Letras(Valor Mod 1000000) Case Is < 1000000000000#: Letras = Letras(Int(Valor / 1000000)) & " millones " If (Valor - Int(Valor / 1000000) * 1000000) _ Then Letras = Letras & Letras(Valor - Int(Valor / 1000000) * 1000000) Case 1000000000000#: Letras = "un billón " Case Is < 2000000000000# Letras = "un billón " & Letras(Valor - Int(Valor / 1000000000000#) * 1000000000000#) Case Else: Letras = Letras(Int(Valor / 1000000000000#)) & " billones " If (Valor - Int(Valor / 1000000000000#) * 1000000000000#) _ Then Letras = Letras & " " & Letras(Valor - Int(Valor / 1000000000000#) * 1000000000000#) End Select End Function 'NO OLVIDES DE VISITAR NUETRO BLOG: http://superacioninternacional.blogspot.pe/ DONDE ENCONTRARAS LOS MEJORES LIBROS Y 'DEMAS INFORMACION UTIL PARA TU DESARROLLO INTEGRAL.