Need a function to convert value in its name

I need to get the name of a number. For example: I have in A1 cell a value,
25 and I need its name in the next cell B1, I mean, I need to get into B1
cell the text saying "Twenty five". Do you know if ther is a function to do
this? or something else? thanks.

http://support.microsoft.com/default...;EN-US;Q213360

http://codebetter.com/blogs/ranjan.s.../05/41854.aspx

here one that doe not convert to dollars

it's called convert to text
when you paste the function into a module the formula will be

=ConvertToText(A1)