Visual Basic - Como Siempre!!! PROBLEMAS!!!!

hola como estas!!!!!!!!

Discupa que te moleste ......pero tengo problema de nuevo .....esta ves con el cristalreport...

tengo un programa recibo de dinero....

por ejemplo:

el señor perez me entrego 125 dolares americanos.....bueno la idea asi...me imprime bien el total donde yo quiero ...pero tambien quiero que el total sea en letras (125) "Ciento Veinti cinco dolares"el total ..........

espero que me ayas entendido........y muchas gracias por la ayuda......amigo !!!!!!!!

Hay una función de Cristal, ToWords, que en teoría lo hace, aunque la he probado y lo hace en Ingles, no obstante hace dos o tres ordenadores juraría que me funcionaba en cristiano, debe ser problema de instalación, aunque no doy con él

Si no te funciona la ayuda que ya te dieron entonces revisa est código:

*******
Public Function Numero2Letra(ByVal strNum As String, Optional vLo) As String
'----------------------------------------------------------
' Convierte el número strNum en letras (28/Feb/91)
' Versión para Windows (25/Oct/96)
'----------------------------------------------------------
Dim lngA As Long
Dim Negativo As Boolean
Dim L As Integer
Dim Una As Boolean
Dim Millon As Boolean
Dim Millones As Boolean
Dim vez As Integer
Dim MaxVez As Integer
Dim k As Integer
Dim strQ As String
Dim strB As String
Dim strU As String
Dim strD As String
Dim strC As String
Dim iA As Integer
'
Dim strN() As String
Dim lo As Integer
'
'Si no se especifica el ancho...
If IsMissing(vLo) Then
lo = 255
Else
lo = vLo
End If

Dim unidad(0 To 9) As String
Dim decena(0 To 9) As String
Dim centena(0 To 9) As String
Dim deci(0 To 9) As String
Dim otros(0 To 15) As String
'Asignar los valores
unidad(1) = "Uno"
unidad(2) = "dos"
unidad(3) = "tres"
unidad(4) = "cuatro"
unidad(5) = "cinco"
unidad(6) = "seis"
unidad(7) = "siete"
unidad(8) = "ocho"
unidad(9) = "nueve"
'
decena(