Visual Basic - CONVERTIR NUMEROS A LETRAS

BUENOS DIAS. ME GUSTARIA, EN EXCEL O ACCESS PASAR NUMEROS, ESTO ES 345 A SU CORRESPONDIENTE LETRA "TRESCIENTOS CUARENTA Y CINCO". HE CONSEGUIDO EN LA PAGINA DE EL GUILLE:
http://guille.costasol.net/utilidades/tcNum2Text.zip
UN PROGRAMA QUE HACE ESTO DE UNO EN UNO, PERO MI IDEA SERIA HACERLO AUTOMATICO AL INTRODUCIR EL NUMERO EN EXCEL, POR EJEMPLO, COMO EN UNA FUNCION. ¿POR FAVOR PODRIA AYUDARME ALGUIEN?

envie a tu correo un ejemplo

Sólo hasta el 999. Otro día más.

Private Function ConvLet(num As Integer) As String
Dim Numeros20 As Variant, Decena2 As Variant, Decenas As Variant, Centenas As Variant
Numeros20 = Array("Cero", "Uno", "Dos", "Tres", "Cuatro", "Cinco", "Seis", "Siete", "Ocho", "Nueve", "Diez", "Once", "Doce", "Trece", "Catorce", "Quince", "Dieciseis", "Dieciseite", "Dieciocho", "Diecinueve", "Veinte")
Decena2 = Array("Veintiuno", "Veintidós", "Veintitrés", "Veinticuatro", "Veinticinco", "Veintiseis", "Veintisiete", "Veintiocho", "Veintinueve")
Decenas = Array("Treinta", "Cuarenta", "Cincuenta", "Sesenta", "Setenta", "Ochenta", "Noventa")
Centenas = Array("Ciento", "Doscientos", "Trescientos", "Cuatrocientos", "Quinientos", "Seiscientos", "Setecientos", "Ochocientos", "Novecientos")

If num <= 20 Then ConvLet = Numeros20(num): Exit Function
If num < 30 Then ConvLet = Decena2(num - 21): Exit Function
If num < 100 Then ConvLet = Decenas(Int((num - 30) / 10)) & " y " & LCase(Numeros20(num Mod 10)): Exit Function
If num < 1000 Then ConvLet = Centenas(Int(num / 100) - 1) & IIf(num Mod 100, " " & LCase(ConvLet(num Mod 100)), ""): Exit Function
End Function