CÀLCULO DE LA LETRA DEL NIF (Número de Identificación Fiscal) a partir del DNI (Documento Nacional de Identidad)

Introducimos una etiqueta, un textbox una segunda etiqueta (Label2) y un botón.

En el código del botón introducimos esta línea:

Private Sub Command1_Click()

Dim s As String

s = Mid("TRWAGMYFPDXBNJZSQVHLCKE", (Val(Text1.Text) Mod 23 + 1), 1)

Label2.Caption = "La lletra és la: " & s & " y el NIF es: " & Text1.Text + s

End Sub