Visual Basic - Pasar de números a letras

Hola, necesitaria pasar de números a letras con decimales (centimos), lo necesito para hacer talones con el Euro. Si teneis alguna idea se agradeceria mucho.
Gracias.

Prueba con esto:

Dim mistr as string

mistr = str(numero)

Necesitas crear un modulo que tenga una rutina que vaya analizando la cifra que quieres convertir. Yo tengo hecho uno pero para la moneda de México.

Basate en esta funcion que solo acepta hasta 999.999. y la proxima ves no seas tan vago :-D

Private Function NumberToText(Nro As Double) As String
Dim NroAux As Integer
Dim strAux As String

'Tomo la
NroAux = Right(CStr(Nro), 3)
Select Case NroAux
Case 0
strAux = "cero"
Case 1
strAux = "uno"
Case 2
strAux = "dos"
Case 3
strAux = "tres"
Case 4
strAux = "cuatro"
Case 5
strAux = "cinco"
Case 6
strAux = "seis"
Case 7
strAux = "siete"
Case 8
strAux = "ocho"
Case 9
strAux = "nueve"
Case 10
strAux = "diez"
Case 11
strAux = "once"
Case 12
strAux = "doce"
Case 13
strAux = "trece"
Case 14
strAux = "catorce"
Case 15
strAux = "quince"
Case 16, 17, 18, 19
strAux = "dieci" & NumberToText(Right(NroAux, 1))
Case 20
strAux = "veinte"
Case 21 To 29
strAux = "veinti" & NumberToText(Right(NroAux, 1))
Case 30
strAux = "Treinta"
Case 40
strAux = "cuarenta"
Case 50
strAux = "cincuenta"
Case 60
strAux = "sesenta"
Case 70
strAux = "setenta"
Case 80
strAux = "ochenta"
Case 90
strAux = "noventa"
Case 31 To 39, 41 To 49, 51 To 59, 61 To 69, 71 To 79, 81 To 89, 91 To 99
strAux = NumberToText(Int(Left(NroAux, 1) & "0")) & " y " &