Access - Función

Tengo una funcion en Visual Basic que calcula la letra del DNI.

Lo que no se es que hay que hacer, para que cuando introduces un número de DNI, automaticamente te calcule la letra y sustituya el numero introducido por el nif.

Ejemplo:

Se introduce el numero de DNI --------> 1

lo que pretendo es que ese numero 1 se convierta en 1R

Espero vuestras respuestas

Gracias

Visual Basic

Private Function NIF(DNI As Long)
NIF = DNI & "-" & Mid$("TRWAGMYFPDXBNJZSQVHLCKE", (DNI Mod 23) + 1, 1)
End Function

[editar] Excel


=CONCATENAR(A1;EXTRAE("TRWAGMYFPDXBNJZSQVHLCKE";RESIDUO(A1;23)+1;1))
=CONCATENATE(A1,MID("TRWAGMYFPDXBNJZSQVHLCKE",MOD(A1,23)+1,1))
=EXTRAE("TRWAGMYFPDXBNJZSQVHLCKE";1+RESIDUO(A1;23);1)

Siendo A1 la celda de origen del DNI sin letra.

Gracias elias, pero esas funciones ya las tenia.

LO que no sé es utilizarlas (Bueno la de Excel si)

Lo que quiero es lo siguiente:

Tengo un campo que se llama DNI

Lo que pretendo es escribir un numero sin letra, por ejemplo 1

y que en ese mismo campo o en otro (no lo sé) aparezca 1R

Gracias