Access - Conversion de Datos

Hola a todos. Esta pregunta ya la habia hecho unos dias antes pero no he encontrado nada, a ver si alguno de ustedes me puede dar alguna otra sugerencia y ando todavia en eso, ¿ se puede o existe una herramienta que cambie el formato numero por texto, y me refiero a este ejemplo, convertir la cantidad $10500 en diez mil quinientos, esto es para un campo en una factura y no tener que capturarlo manualmente.
Espero me puedan ayudar o para ver si alguien ya ha conseguido hacer esto. Espero y me ayuden ..se los agredeceria bastante..
Gracias --
Pd. Gracias Victoria todavia ando buscando..Saludos

LA F(x) es muy burda, pero funciona, solo copialo en tu modulo

Function NUMERO_Castellano(VALOR_NUMERICO As Double) As String
Dim NUM As Double
Dim Valor As String
NUM = Int(VALOR_NUMERICO)
If IsNull(NUM) Or NUM = 0 Then Exit Function
ReDim Unidad(100): ReDim DECENA(9): ReDim CENTENA(9): ReDim UNION(2)
UNION(0) = "": UNION(1) = " MIL ": UNION(2) = " MILLONES "
Unidad(1) = "UN": Unidad(2) = "DOS": Unidad(3) = "TRES": Unidad(4) = "CUATRO": Unidad(5) = "CINCO"
Unidad(6) = "SEIS": Unidad(7) = "SIETE": Unidad(8) = "OCHO": Unidad(9) = "NUEVE": Unidad(10) = "DIEZ"
Unidad(11) = "ONCE": Unidad(12) = "DOCE": Unidad(13) = "TRECE": Unidad(14) = "CATORCE": Unidad(15) = "QUINCE": Unidad(20) = "VEINTE": Unidad(100) = "CIEN"
DECENA(1) = "DIECI": DECENA(2) = "VEINTI": DECENA(3) = "TREINTA": DECENA(4) = "CUARENTA": DECENA(5) = "CINCUENTA"
DECENA(6) = "SESENTA": DECENA(7) = "SETENTA": DECENA(8) = "OCHENTA": DECENA(9) = "NOVENTA":
CENTENA(0) = "": CENTENA(1) = "CIENTO": CENTENA(2) = "DOSCIENTOS": CENTENA(3) = "TRESCIENTOS": CENTENA(4) = "CUATROCIENTOS": CENTENA(5) = "QUINIENTOS"
CENTENA(6) = "SEISCIENTOS": CENTENA(7) = "SETECIENTOS": CENTENA(8) = "OCHOCIENTOS": CENTENA(9) = "NOVECIENTOS"
u = 0: D = 0: c = 0
Valor = NUM
VECES = Int((Len(Val