Numeros a Letras

Dim PosNum(36) As Integer
Dim Poslet(36) As String

Function Convertidor(Numpos As Integer) As String
Dim I As Integer
Dim Tex As String
Dim Final As Integer
Dim Pos As Integer

PosNum(1) =1
PosNum(2) = 2
PosNum(3) = 3
PosNum(4) = 4
PosNum(5) = 5
PosNum(6) = 6
PosNum(7) = 7
PosNum(8) = 8
PosNum(9) = 9
PosNum(10) = 10
PosNum(11) = 11
PosNum(12) = 12
PosNum(13) = 13PosNum(14) = 14
PosNum(15) = 15
PosNum(16) = 16
PosNum(17) = 17
PosNum(18) = 18
PosNum(19) = 19
PosNum(20) = 20
PosNum(21) = 30
PosNum(22) = 40
PosNum(23) = 50
PosNum(24) = 60
PosNum(25) = 70PosNum(26) = 80
PosNum(27) = 90
PosNum(28) = 100
PosNum(29) = 200
PosNum(30) = 300
PosNum(31) = 400
PosNum(32) = 500
PosNum(33) = 600
PosNum(34) = 700
PosNum(35) = 800
PosNum(36) = 900Poslet(1) = "UN"
Poslet(2) = "DOS"
Poslet(3) = "TRES"
Poslet(4) = "CUATRO"
Poslet(5) = "CINCO"
Poslet(6) = "SEIS"
Poslet(7) = "SIETE"
Poslet(8) = "OCHO"
Poslet(9) = "NUEVE"
Poslet(10) = "DIEZ"Poslet(11) = "ONCE"
Poslet(12) = "DOCE"
Poslet(13) = "TRECE"
Poslet(14) = "CATORCE"
Poslet(15) = "QUINCE"
Poslet(16) = "DIECISEIS"
Poslet(17) = "DIECISIETE"
Poslet(18) = "DIECIOCHO"
Poslet(19) ="DIECINUEVE"
Poslet(20) = "VEINTE"
Poslet(21) = "TREINTA"
Poslet(22) = "CUARENTA"
Poslet(23) = "CINCUENTA"
Poslet(24) = "SESENTA"
Poslet(25) = "SETENTA"
Poslet(26) = "OCHENTA"
Poslet(27) ="NOVENTA"
Poslet(28) = "CIENTO"
Poslet(29) = "DOSCIENTOS"
Poslet(30) = "TRESCIENTOS"
Poslet(31) = "CUATROCIENTOS"
Poslet(32) = "QUINIENTOS"
Poslet(33) = "SEISCIENTOS"
Poslet(34) = "SETECIENTOS"Poslet(35) = "OCHOCIENTOS"
Poslet(36) = "NOVECIENTOS"

I = 0
Final = 37
While I < Final
If PosNum(I) = Numpos Then
Pos = I
Tex = Poslet(Pos)
End If
I = I + 1
WendConvertidor = Tex
End Function

Function NumTxt(Numero As Double, TMon As String) As String
Dim Letras As String
Dim Espacio As String
Dim Num As Double
Dim Deci As String
Dim Valor As Double...