Imports System

Public Module Module1       

        ' mapping

        Dim strArThousands() As String = {"jeden tisíc", "dva tisíce", "tři tisíce",

                        "čtyři tisíce", "pět tisíc", "šest tisíc", "sedm tisíc", "osm tisíc", "devět tisíc"}

        Dim strArHundreds() As String = {"jedno sto", "dvě sta", "tři sta",

                        "čtyři sta", "pět set", "šest set", "sedm set", "osm set", "devět set"}

        Dim strArTens() As String = {"deset", "dvacet", "třicet",

                        "čtyřicet", "padesát", "šedesát", "sedmdesát", "osmdesát", "devadesát"}

        Dim strArTeens() As String = {"jedenáct", "dvanáct", "třináct",

                        "čtrnáct", "patnáct", "šestnáct", "sedmnáct", "osmnáct", "devatenáct"}

        Dim strArSingles() As String = {"jeden", "dva", "tři",

                        "čtyři", "pět", "šest", "sedm", "osm", "devět"}

    Public Sub Main()   

        Dim inputNumber As Integer = 123456 ' accept number from the input box

​

        ' convert number to digits

        Dim inputDigits As Integer() = Array.ConvertAll(Of Char, Integer)(inputNumber.ToString.ToCharArray, Function(c As Char) Integer.Parse(c.ToString)) '/ {1,2,3,4}

        Array.Reverse(inputDigits)

​

        ' initialize an empty array of the length of the maximum number e.g. 999,999

        Dim myDigits As Integer() = {0, 0, 0, 0, 0, 0}

​

        ' assign number digits to an empty array

        For j = 0 To inputDigits.Length - 1

            myDigits.SetValue(inputDigits(j), j)

        Next

        Array.Reverse(myDigits) '/ {0,0,1,2,3,4}

​

        ' initialize a new StringBuilder Class, a mutable string of characters, for all appended words

        Dim myAddedWords As New System.Text.StringBuilder ' Class, a mutable string of characters

​

​

        ' MATCH digits to mapping / {"a","b","jeden","dve sta","tricet","ctyri"}        

        For i = 0 To 5 ' will cycle throught all digits 1st[0] to 6th[5]

            If myDigits.GetValue(i) = 0 Then ' if digit in a position is zero, 

                Console.WriteLine(myDigits.GetValue(i))         

            Else ' if digit in a position is anything other than zero, 

                Console.WriteLine(myDigits.GetValue(i))

                Dim insertPosition As Integer = i ' last 6th position, indexed from 0

                Dim insertWord As String ' select word to be added

                    Select Case i

                        Case 0, 3

                            insertWord = strArHundreds(myDigits.GetValue(i) - 1) ' find word from array's position x-1 as indexed from 0        

                            myAddedWords.AppendFormat("{0} ", insertWord)   

                        Case 1, 4

                            insertWord = strArTens(myDigits.GetValue(i) - 1) ' find word from array's position x-1 as indexed from 0

                            myAddedWords.AppendFormat("{0} ", insertWord)

                        Case 2, 5

                            insertWord = strArSingles(myDigits.GetValue(i) - 1) ' find word from array's position x-1 as indexed from 0 

                            myAddedWords.AppendFormat("{0} ", insertWord)

                    End Select              

                'myWords.SetValue(insertWord, insertPosition) ' assign word into the position

            End If

        Next

        myAddedWords.Append("CZK 0/100")

​

        Dim FinalWord2 As String = myAddedWords.ToString.Trim()

        Console.WriteLine(FinalWord2)

    End Sub

End Module