Public Function letraNif(DNI As String) As String
Dim letra As String
If Not IsDigit(Left(DNI, 1)) Then DNI = Right(DNI, -1) 'es extranjero, eliminamos la primera letra
Try letra = Mid("TRWAGMYFPDXBNJZSQVHLCKE", (CInt(DNI) Mod 23) + 1, 1)
If Error Then letra = " " 'puede dar error si el dni no es numérico por ser extranjero...
Return letra
End
Dim letra As String
If Not IsDigit(Left(DNI, 1)) Then DNI = Right(DNI, -1) 'es extranjero, eliminamos la primera letra
Try letra = Mid("TRWAGMYFPDXBNJZSQVHLCKE", (CInt(DNI) Mod 23) + 1, 1)
If Error Then letra = " " 'puede dar error si el dni no es numérico por ser extranjero...
Return letra
End
Saludos.