Validacion del numero de cedula ecuatoriana en visual basic

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.