Visual Basic.NET - ToWords en Crystal para VB.Net

Hola Amigos

Tengo el siguiente problema al ocupar la funcion toWords de crystal para poder pasar un dato numerico a letras por ejemplo si tengo 20,40 me pone (veinte y 40/100) , nose como arreglar eso si alguien tiene una funcion que funcione se lo agradeceria
Si hay un metodo a travez del cual obtenga este resutado 20,40 por ejemplo( veinte pesos y cuarenta centavos ) ...

desde ya se agradece !

P.D : e leido algunos post de lso foros de cristal y visual basic pero nose si funciona para .NET

Que tal amigo te envio esta funcion que yo utilizo pero a mi parecer lo que faltaria es que la Primer letra sea mayuscula por ejemplo del resultado anterior 20,40 (Veinte pesos y cuarenta centavos)

Function ImporteALetra (importe as currency) as string
ImporteALetra = ""

' Dividir el importe en la parte entera y la parte decimal
dim entero, decimal as currency

importe = round(importe,2)
entero = fix(importe,0)
decimal = (importe-entero)*100

' Convertir la parte entera a letras
Select case entero
case 0
' No hacer nada
case 1
ImporteALetra = "un Peso"
case else
ImporteALetra = ToWords(entero,0) & " Pesos "
end select

' Convertir la parte decimal a letras
Select case decimal
case 0
' No hacer nada
case 1
if ImporteALetra<>"" then ImporteALetra = ImporteALetra & " con "
ImporteALetra = ImporteALetra & "un centavo"
case else
if ImporteALetra<>"" then ImporteALetra = ImporteALetra & " con "
ImporteALetra = ImporteALetra & ToWords(decimal,2) & " centavos"
end select

End Function

Espero que les sirva.
Saludos desde Bolivia.....