[Resolvido]Cpf sem erro de digitação

Olá amigos, queria tirar uma dúvida.
Tenho uma textbox cpf, queria ver se tem como quando digitar cpf ela informa que o cpf é inválido, po seja mesmo digitando qualquer numero somente se for um cpf válido.

exemplo correto: 665.998.889-80

exemplo errado:111.111.111-11

Dê uma olhada aqui

Boa noite, fiz conforme está la mas deu erro.
Segue anexo do erro.


Private Sub CPF_BeforeUpdate(Cancel As Integer)
If fncCpfValido(Me!CPF) = False Then
MsgBox "CPF inválido...", vbInformation, "Aviso"
Cancel = True
End If
End Sub

Está resolvido amigos, mais uma vez muito obrigado e fiquem com Deus....