Funcion para validar la cedula de identidad. A quien la necesite:

Public Function VerificaCedula(Cedula As String) As Boolean
VerificaCedula = True
If Len(Trim(Cedula)) <> 10 Then
VerificaCedula = False
End If

If Val(Mid(Cedula, 1, 2)) > 25 Then
VerificaCedula = False
End If

If Val(Mid(Cedula, 3, 1)) > 5 Then
VerificaCedula = False
End If

If VerificaCedula = False Then
MsgBox ("Cedula incorrecta " ), vbInformation
Else
Dim Total As Integer
Dim Cifra As Integer
Total = 0

For a = 1 To 9

If (a Mod 2) = 0 Then
Cifra = Val(Mid(Cedula, a, 1))
Else
Cifra = Val(Mid(Cedula, a, 1)) * 2
If Cifra > 9 Then
Cifra = Cifra - 9
End If
End If
Total = Total + Cifra
Next

Cifra = Total Mod 10

If Cifra > 0 Then
Cifra = 10 - Cifra
End If

If Cifra = Val(Mid(Cedula, 10, 1)) Then
VerificaCedula = True
Else
MsgBox ("Numero de cedula no pasa la validacin, verifique por favor", vbInformation
VerificaCedula = False
End If

End If


End Function


Pueden utilizarlo de la siguente manera





If VerificaCedula(VariableQueContieneLaCedula) = False Then
'Codigo en caso de que la cedula no pase la validacion
Else
'Codigo en caso de que la cedula sea correcta
End If





Hay algun@s que aun lo necesitan asi q va para ell@s. Se aceptan preguntas.