Ejercicio Convertor Numerico a Enunciado

Hacer un programa que convierta un valor númerico a enunciado.

Es decir, si tenemos el número 345, debe de imprimir en pantalla:
"trecientos cuarenta y cinco"

2743: "dos mil setecientos cuarenta y tres"

El programa reconocera numeros desde 0 hasta 9999.
Tendras entonces en tu programa: unidad de millar, centenas, decenas y unidades.

Funciones para el manejo de Cadenas

length ()
GetChar()
Right ()
Left ()

length()
Te devuelve la cantidad de caracteres en una cadena
ej.
Dim tot as Integer, Dim cadena as String = "4527"
Dim caracter as String
Dim cad2 as String
tot = length(cadena)
'tot tendra el valor de 4



GetChar ()
Devuelve el caracter en determinada posicion de una cadena
ej.
caracter = GetChar (cadena,1)
'caracter tendra el valor de 4

right()
Regresa un determinado numero de caracteres contando desde la derecha
cad2 = Right(cadena,2)
'cad2 tendra el valor de 27


left()
Regresa un determinado numero de caracteres contando desde la izquierda
cad2 = Left(cadena,2)
'cad2 tendra el valor de 45