Imports System

Public Module Module1

    Public Sub Main()

        Dim number As Decimal = 4989654321.85

        Dim currencyCode As String = "USD"

        Dim fractionName As String = "cents"

        Dim result as String = ConvertDecimalToWords(number, currencyCode, fractionName)

        Console.WriteLine(result)

    End Sub

    Public Function ConvertDecimalToWords(ByVal number As Decimal, ByVal currencyCode As String, ByVal fractionName As String) As String

    Dim words As String = ""

    Dim ones() As String = {"", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine "}

    Dim tens() As String = {"", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety "}

    Dim teens() As String = {"Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen "}

    Dim scale() As String = {"", "Thousand ", "Million ", "Billion ", "Trillion ", "Quadrillion ", "Quintillion "}

​

    Dim isNegative As Boolean = (number < 0)

    If isNegative Then

        number = Math.Abs(number)

        words = "Minus "

    End If

​

    Dim intNumber As Long = Math.Truncate(number)

    Dim fraction As Integer = CInt(Math.Round((number - intNumber) * 100))

​

    If intNumber = 0 Then

        words &= "Zero "

    Else

        Dim groups(6) As Integer

        Dim groupCount As Integer = 0

        While intNumber > 0

            groups(groupCount) = intNumber Mod 1000

            intNumber \= 1000

            groupCount += 1

        End While

​

        For i As Integer = groupCount - 1 To 0 Step -1

            Dim groupNumber As Integer = groups(i)

            If groupNumber > 0 Then

                Dim hundreds As Integer = groupNumber \ 100

                Dim tensUnits As Integer = groupNumber Mod 100

​

                If hundreds > 0 Then

                    words &= ones(hundreds) & "Hundred "

                End If

​

                If tensUnits > 0 Then

                    If tensUnits < 10 Then

                        words &= ones(tensUnits)

                    ElseIf tensUnits < 20 Then

                        words &= teens(tensUnits - 10)

                    Else

                        words &= tens(tensUnits \ 10)

                        If (tensUnits Mod 10) > 0 Then

                            words &= ones(tensUnits Mod 10)

                        End If

                    End If

                End If

​

                If i > 0 Then

                    words &= scale(i)

                End If

            End If

        Next

    End If

​

    words &= currencyCode & " "

​

    If fraction = 0 Then

        words &= ""

    Else

        Dim tensUnits As Integer = fraction Mod 100

​

        If tensUnits > 0 Then

            If tensUnits < 10 Then

                words &= ones(tensUnits)

            ElseIf tensUnits < 20 Then

                words &= teens(tensUnits - 10)

            Else

                words &= tens(tensUnits \ 10)

                If (tensUnits Mod 10) > 0 Then

                    words &= ones(tensUnits Mod 10)

                End If

            End If

        End If

​

        words &= fractionName & " "

    End If

​

    words &= "only"

​

    Return words.Trim()

End Function

End Module