Verificando el CCC

Function verificaCCC(Entidad As String, Sucursal As String, _
DigCon As String, Cuenta As String) As Boolean

If Int(DigCon / 10) = (11 – (Int(Sucursal Mod 10) * 6 + Int(Int( _
Sucursal / 10) Mod 10) * 3 + Int(Int( _
Sucursal / 100) Mod 10) * 7 + Int(Int( _
Sucursal / 1000) Mod 10) * 9 + Int(Entidad Mod 10) * 10 + Int(Int( _
Entidad / 10) Mod 10) * 5 + Int(Int(Entidad / 100) Mod 10) * 8 + Int( _
Int(Entidad / 1000) Mod 10) * 4) Mod 11) And DigCon Mod 10 = (11 – ( _
Right(Cuenta, _
1) * 6 + Int(Int(Cuenta / 10) Mod 10) * 3 + Int(Int( _
Cuenta / 100) Mod 10) * 7 + Int(Int(Cuenta / 1000) Mod 10) * 9 + Int( _
Int(Cuenta / 10000) Mod 10) * 10 + Int(Int( _
Cuenta / 100000) Mod 10) * 5 + Int(Int( _
Cuenta / 1000000) Mod 10) * 8 + Int(Int( _
Cuenta / 10000000) Mod 10) * 4 + Int(Int( _
Cuenta / 100000000) Mod 10) * 2 + Int(Int( _
Cuenta / 1000000000) Mod 10) * 1) Mod 11) Then

‘correcto
   verificaCCC = True
End If
End Function