Cálculo del NIF

Private Sub cmdCalcula_Click()
a$ = "TRWAGMYFPDXBNJZSQVHLCKEI"
x = Val(txtDni.Text)
n = (x Mod 23) + 1
letra = Mid$(a$, n, 1)
txtNif.Text = x & "-" & letra
End Sub

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)