Basate en esta funcion que solo acepta hasta 999.999. y la proxima ves no seas tan vago :-D
Private Function NumberToText(Nro As Double) As String
Dim NroAux As Integer
Dim strAux As String
'Tomo la
NroAux = Right(CStr(Nro), 3)
Select Case NroAux
Case 0
strAux = "cero"
Case 1
strAux = "uno"
Case 2
strAux = "dos"
Case 3
strAux = "tres"
Case 4
strAux = "cuatro"
Case 5
strAux = "cinco"
Case 6
strAux = "seis"
Case 7
strAux = "siete"
Case 8
strAux = "ocho"
Case 9
strAux = "nueve"
Case 10
strAux = "diez"
Case 11
strAux = "once"
Case 12
strAux = "doce"
Case 13
strAux = "trece"
Case 14
strAux = "catorce"
Case 15
strAux = "quince"
Case 16, 17, 18, 19
strAux = "dieci" & NumberToText(Right(NroAux, 1))
Case 20
strAux = "veinte"
Case 21 To 29
strAux = "veinti" & NumberToText(Right(NroAux, 1))
Case 30
strAux = "Treinta"
Case 40
strAux = "cuarenta"
Case 50
strAux = "cincuenta"
Case 60
strAux = "sesenta"
Case 70
strAux = "setenta"
Case 80
strAux = "ochenta"
Case 90
strAux = "noventa"
Case 31 To 39, 41 To 49, 51 To 59, 61 To 69, 71 To 79, 81 To 89, 91 To 99
strAux = NumberToText(Int(Left(NroAux, 1) & "0")) & " y " &