Dim vNumber As Double


Function NumberToWords(B yVal vNumber As Long, Optional BlankIfZero As Boolean) As String


Select Case Number

Case 0

NumberToWords = IIf(BlankIfZero , "", "Zero")


Case 1 To 19

NumberToWords = Choose(vNumber, "One...