Display Currency as text (Dollars & Cents)

Display Currency as text (Dollars & Cents) DisplayCurrencyastext(Dollars&Cents) Display Currency as text (Dollars & Cents) [VB.NET] Mark Conway /PreviewSnippet.aspx?SnippetID=830db817-0bc3-4403-b84b-a55907b9c6c4 SurroundsWith

 "0" Then 'hundreds digit
            CurrencyText = Units(Val(Mid(Dollars, Len(Dollars) - 2, 1))) & " Hundred " & CurrencyText
        End If
        Dollars = Left(Dollars, Len(Dollars) - 3) 'trim off hundreds,tens, & units
        If Right(Dollars, 3) <> "000" Then 'no thousands
            Select Case Mid(Dollars, Len(Dollars) - 1, 1) 'ten thousand digit
                Case "1" 'last two digits are teens
                    CurrencyText = Teens(Val(Right(Dollars, 1))) & " Thousand " & CurrencyText
                Case Else
                    CurrencyText = Tens(Val(Mid(Dollars, Len(Dollars) - 1, 1))) & " " & _
       Units(Val(Right(Dollars, 1))) & " Thousand " & CurrencyText
            End Select
            If Mid(Dollars, Len(Dollars) - 2, 1) <> "0" Then 'thousands digit
                CurrencyText = Units(Val(Mid(Dollars, Len(Dollars) - 2, 1))) & " Hundred " & CurrencyText
            End If
        End If
        Dollars = Left(Dollars, Len(Dollars) - 3) 'trim off thousands...leave millions
        If Right(Dollars, 3) <> "000" Then 'no millions
            Select Case Mid(Dollars, Len(Dollars) - 1, 1) 'ten million digit
                Case "1" 'last two digits are teens
                    CurrencyText = Teens(Val(Right(Dollars, 1))) & " Million " & CurrencyText
                Case Else
                    CurrencyText = Tens(Val(Mid(Dollars, Len(Dollars) - 1, 1))) & " " & _
       Units(Val(Right(Dollars, 1))) & " Million " & CurrencyText
            End Select
            If Mid(Dollars, Len(Dollars) - 2, 1) <> "0" Then 'millions digit
                CurrencyText = Units(Val(Mid(Dollars, Len(Dollars) - 2, 1))) & " Hundred " & CurrencyText
            End If
        End If
    End Function]]>