Module Munger
    Dim num, piece As String
    Dim chars() As String = {"ku", "so", "ge", "chi", "na", "ru", "e", "su", "ta", "ka"}

    Sub Main()
        Randomize(Now.ToOADate)

        For x = 0 To 12
            piece = ""
            num = CStr(CInt(Rnd() * 9999))
            For n = 0 To num.Length - 1
                piece &= chars(Val(num.Substring(n, 1)))
            Next
            Console.WriteLine("{0}:     {1}", num, piece)
            Debug.Print(num)
        Next

        'Console.WriteLine(vbCrLf & "Press Any Key to Continue") : Console.ReadKey(True)
    End Sub
End Module