>>See if this is it http://www.devx.com/vb2themax/Tip/19053
>
>I do not know if you tried that but that doesn't work at all. When I first look at it, I said: "Wow, this is the most amazing simplified version of such logic I have ever seen.". But, it requires a lot of adjustments.
>
>I have tried to adjust it a little bit and so far, I have this:
>
>

>    Private Function NumberToWords(ByVal tnValue As Long, _
>     Optional ByVal BlankIfZero As Boolean = False) As String
>        Dim lcNumberToWords As String = ""
>
>        Select Case tnValue
>
>            Case 0
>                lcNumberToWords = IIf(BlankIfZero, "", "Zero")
>
>            Case 1 To 19
>                lcNumberToWords = Choose(tnValue, "One", "Two", "Three", "Four", _
>                 "Five", "Six", "Seven", "Eight", "Nine", "Ten", "Eleven", _
>                 "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", _
>                 "Seventeen", "Eighteen", "Nineteen")
>
>            Case 20 To 99
>                lcNumberToWords = Choose(tnValue \ 10 - 1, "Twenty", "Thirty", _
>                 "Fourty", "Fifty", "Sixty", "Seventy", "Eighty", _
>                 "Ninety") & NumberToWords(tnValue Mod 10, True)
>
>            Case 100 To 999
>                lcNumberToWords = NumberToWords(tnValue \ 100) & "Hundred" & IIf _
>                 (tnValue >= 200, "s", "") & NumberToWords(tnValue Mod 100, True)
>
>            Case 1000 To 999999
>                lcNumberToWords = NumberToWords(tnValue \ 1000) & "Thousand" & IIf _
>                 (tnValue >= 2000, "s", "") & NumberToWords(tnValue Mod 1000, True)
>
>            Case 1000000 To 999999999
>                lcNumberToWords = NumberToWords(tnValue \ 1000000) & "Million" & IIf _
>                 (tnValue >= 2000000, "s", "") & NumberToWords(tnValue Mod 1000000, True)
>
>            Case Is >= 1000000000
>                lcNumberToWords = NumberToWords(tnValue \ 1000000000) & "Billion" & _
>                 IIf(tnValue >= 2000000000, "s", "") & NumberToWords(tnValue Mod _
>                 1000000000, True)
>        End Select
>
>        Return lcNumberToWords
>    End Function
>

>
>But, this doesn't take care of the spacing issue, the casing and the decimals. If someone wants to proceed on enhancing that, you are welcome.

Michel, the code snipped I posted works, as I tested it out today. However, it looks like you need to do decimals?