Convert number to String by using Select statement : Select « Language Basics « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Language Basics
  3. Select

Convert number to String by using Select statement

 

Function NumberToString(lngNumber As Long) As String

    Dim strNumber  As String     
    Dim intLoop    As Integer    
    Dim strRV      As String     
    Dim strTemp    As String     
    strNumber = lngNumber
    For intLoop = 1 To Len(strNumber)
        Select Case Mid$(strNumber, intLoop, 1)
        Case "0"
            strTemp = "Zero"
        Case "1"
            strTemp = "One"
        Case "2"
            strTemp = "Two"
        Case "3"
            strTemp = "Three"
        Case "4"
            strTemp = "Four"
        Case "5"
            strTemp = "Five"
        Case "6"
            strTemp = "Six"
        Case "7"
            StrTemp = "Seven"
        Case "8"
            strTemp = "Eight"
        Case "9"
            strTemp = "Nine"
        End Select
        strRV = strRV & strTemp & " "
    Next
    NumberToString = strRV

End Function








Related examples in the same category

1.Use Integer as the switch value for Select Case Structure
2.Use select case statement
3.Use string text as the select case statement control value
4.Specifying a Range of Values in a Case Clause by using the To keyword between the values of expressions
5.Select Case Statements with comparison operator
6.Specify a range in select case statement
7.Specifying Multiple Expressions in a Case Clause: specify multiple conditions within a single Case clause by separating each condition with a comma
8.Using Is with the Case Clause
9.Select Case Else
10.A nested Select Case example
11.Three-level nested Select Case statement
12.Choosing Actions with Select Case