press 'Alt' + 'F11';

paste the code blow;

press 'Alt' + 'Q' to save the code

===========================================

'****************

      ' Main Function *

      '****************

Function SpellNumber(ByVal MyNumber)

          Dim Dollars, Cents, Temp

          Dim DecimalPlace, Count

ReDim Place(9) As String

          Place(2) = " Thousand "

          Place(3) = " Million "

          Place(4) = " Billion "

          Place(5) = " Trillion "

' String representation of amount.

          MyNumber = Trim(Str(MyNumber))

' Position of decimal place 0 if none.

          DecimalPlace = InStr(MyNumber, ".")

          ' Convert cents and set MyNumber to dollar amount.

          If DecimalPlace > 0 Then

              Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))

              MyNumber