Función LetraNif

Esta función devuelve la letra del NIF asociada a un número de DNI Function LetraNif(dni As Long) As String LetraNif = Mid(«TRWAGMYFPDXBNJZSQVHLCKE», (dni Mod 23) + 1, 1) End Function