Visual Basic - Letra del DNI

Necesito hallar la letra del DNI a partir de las cifras del dni, teneis alguien la función hecha?
gracias

hola María, para cálcular la letra del DNI tan solo necesitas una función tan sencilla como esta:

Dim nDNI As Long
nDNI = "30604167"
MsgBox CalculoLetraDNI(nDNI)

Function CalculoLetraDNI2(nDNI As Long) As String

Const LETRAS = "TRWAGMYFPDXBNJZSQVHLCKE"
CalculoLetraDNI2 = Mid(LETRAS, (nDNI Mod 23) + 1, 1)

End Function

Un saludo,
Agui
http://www.madridsoft.com
Consultas gratuitas

Veo que se me ha colado un 2 en el nombre de la función.

La función correcta es:

Function CalculoLetraDNI(nDNI As Long) As String

Const LETRAS = "TRWAGMYFPDXBNJZSQVHLCKE"
CalculoLetraDNI = Mid(LETRAS, (nDNI Mod 23) + 1, 1)

End Function

Un saludo,
Agui
http://www.madridsoft.com
Consultas gratuitas

Los pasaportes que tienen el formato, por ejemplo X1434290, tambien puede calcular la letra usando la misma funcion y el nº de ese dni quitandole la X.

GRACIAS POR TODO