TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
 Specialized Dev Zones Research Center eBook Library .NET Java C++ Web Dev Architecture Database Security Open Source Enterprise Mobile Special Reports 10-Minute Solutions DevXtra Blogs Slideshow

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.

 Home » Tip Bank » .NET » VB.NET » String Manipulation
Language: VB4,VB5,VB6,VBS
Expertise: Intermediate
Feb 26, 2000

### WEBINAR:On-Demand

Building the Right Environment to Support AI, Machine Learning and Deep Learning

# NumberToWords - Convert a number into its string representation

``````' Convert a number into its textual equivalent.
'
' Pass True in the second argument if you want a null string when
' zero is passed.
' This is a recursive routine that is probably the most concise
' routines that solves the problem

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

 Submit a Tip Browse ".NET" Tips Browse All Tips
Comment and Contribute

(Maximum characters: 1200). You have 1200 characters left.

Thanks for your registration, follow us on our social networks to keep up-to-date