Problema Com Máscara No Cpf

[ventrue_rj]

Tem um de cadastro onde precisa ser feito uma validação de CPF.

Quando o CPF é digitado num text ele verifica....mas quando coloco o CPF numa máscara ele não verifica, o resultado sempre é CPF inválido.

O código de vallidação é esse:

Function ConfereCPF(CPF As String)
Dim Soma As Integer
Dim Dígito1, Dígito2 As Integer
Dim Resto As Integer
ConfereCPF = False
If Not IsNumeric(CPF) Or Len(CPF) < 11 Or (CPF = "11111111111") Or (CPF = "22222222222") Or (CPF = "33333333333") Or (CPF = "44444444444") Or (CPF = "55555555555") Or (CPF = "66666666666") Or (CPF = "77777777777") Or (CPF = "88888888888") Or (CPF = "99999999999") Or (CPF = "00000000000") Then
 Exit Function
End If
Soma = 0
Soma = Soma + Val(Mid(CPF, 9, 1)) * 2
Soma = Soma + Val(Mid(CPF, 8, 1)) * 3
Soma = Soma + Val(Mid(CPF, 7, 1)) * 4
Soma = Soma + Val(Mid(CPF, 6, 1)) * 5
Soma = Soma + Val(Mid(CPF, 5, 1)) * 6
Soma = Soma + Val(Mid(CPF, 4, 1)) * 7
Soma = Soma + Val(Mid(CPF, 3, 1)) * 8
Soma = Soma + Val(Mid(CPF, 2, 1)) * 9
Soma = Soma + Val(Mid(CPF, 1, 1)) * 10
Resto = Soma Mod 11
Dígito1 = IIf(Resto = 0 Or Resto = 1, 0, 11 - Resto)
Soma = 0
Soma = Soma + Val(Mid(CPF, 10, 1)) * 2
Soma = Soma + Val(Mid(CPF, 9, 1)) * 3
Soma = Soma + Val(Mid(CPF, 8, 1)) * 4
Soma = Soma + Val(Mid(CPF, 7, 1)) * 5
Soma = Soma + Val(Mid(CPF, 6, 1)) * 6
Soma = Soma + Val(Mid(CPF, 5, 1)) * 7
Soma = Soma + Val(Mid(CPF, 4, 1)) * 8
Soma = Soma + Val(Mid(CPF, 3, 1)) * 9
Soma = Soma + Val(Mid(CPF, 2, 1)) * 10
Soma = Soma + Val(Mid(CPF, 1, 1)) * 11
Resto = Soma Mod 11
Dígito2 = IIf(Resto = 0 Or Resto = 1, 0, 11 - Resto)

If Dígito1 = Val(Mid(CPF, 10, 1)) And Dígito2 = Val(Mid(CPF, 11, 1)) Then
ConfereCPF = True
End If
End Function

Eu quero que esse código seja validado num text com máscara (maskedit)

[Luiz Humberto]

O que pode fazer é o seguinte utilize este campo com as devidas maskaras, e quando for passar para o função utlize a proprieade ClipText, pois ela retorna o que foi digitado no campo, mas sem a maskara.

Ex: 999.999.999-99, utlizando a proprieadade acima irá retornar 9999999999.

Espero ter ajudado !!

[ventrue_rj]

Valeu.....Atua dica foi de bastante proveito conseguimos fazer a validação do CPF.

Só falta a do CGC que continua dando problemas mesmo depois de ter usado essa propriedade...

Ajudou e muito