Validação de CNPJ em Access (VBA)

Bom dia pessoal!

Eu tenho um curso de access e excel mas não entendo nada de VBA. Consegui essa função para validação do CPF e não consigo nada parecido para validar o CNPJ, alguém pode me ajudar?

_______________________________________________________________________

Function DVCPF(cpf As String) As String

Dim lngSoma, lngInteiro As Long
Dim intNumero, intMais, I, intResto As Integer
Dim intDig1, intDig2 As Integer
Dim strDigVer, strcampo, strCaracter, StrConf As String
Dim dblDivisao As Double
lngSoma = 0
intNumero = 0
intMais = 0
strcampo = Left(cpf, 9)
strDigVer = Right(cpf, 2)
For I = 2 To 10
strCaracter = Right(strcampo, I - 1)
intNumero = Left(strCaracter, 1)
intMais = intNumero * I
lngSoma = lngSoma + intMais
Next I
dblDivisao = lngSoma / 11
lngInteiro = Int(dblDivisao) * 11
intResto = lngSoma - lngInteiro
If intResto = 0 Or intResto = 1 Then
intDig1 = 0
Else
intDig1 = 11 - intResto
End If
strcampo = strcampo & intDig1
lngSoma = 0
intNumero = 0
intMais = 0
For I = 2 To 11
strCaracter = Right(strcampo, I - 1)
intNumero = Left(strCaracter, 1)
intMais = intNumero * I
lngSoma = lngSoma + intMais
Next I
dblDivisao = lngSoma / 11
lngInteiro = Int(dblDivisao) * 11
intResto = lngSoma - lngInteiro
If intResto = 0 Or intResto = 1 Then
intDig2 = 0
Else
intDig2 = 11 - intResto
End If
StrConf = intDig1 & intDig2
DVCPF = StrConf

If DVCPF = strDigVer Then
MsgBox "CPF válido!", vbInformation
Else
MsgBox "CPF inválido", vbCritical
DoCmd.CancelEvent
End If

End Function

______________________________________________________________________

Quem souber como faço esse mesmo tipo de função só que para o CPF, por favor, me ajude.

Obrigado a todos!

Pesquise no forum que você encontra alguns tópicos já resolvidos sobre o assunto. Veja um aqui: http://maximoaccess.forumeiros.com/t785-resolvidocpf-e-cnpj-no-mesmo-campo-access-2003

Tem alguns outros.

Criquio, obrigado pela resposta. Mas não é bem isso que eu procuro, já até vi esses tópicos e sugeri a utilização dos arquivos só que foi negado. Eu realmente não sei nem por onde começar com o VBA. O que estou precisando é o seguinte, após eu digitar o CPF no formulário de cadastro ele abre uma janela de aviso indicando se é válido ou não. Quero o mesmo pro CNPJ, eles estão em formulários distintos. Mas eu tentei adequar a função e não tive sucesso.
Deu pra compreender o que eu preciso?

Obrigado!

Ola seja bem vindo ao forum.

Na verdade existe muita materia sobre isso na sala de exemplos.

Veja este, em formularios diferentes e adapte;

http://dl.dropbox.com/u/771097/ValidaCPF_CNPJ_II.rar

olá , Bom dia Mestres do Access
aproveitando o tópico!
Sou novato no assunto e por isso peço uma luz.
adaptei uma rotina de validar o CNPJ, retirada de um dos tópico daqui
só que na minha aplicação só retorna o CNPJ invalido, mesmo que o CNPJ seja valido.
como faço para verificar isso?

Deu uma olhada nesse Exemplo aqui amigo?
https://www.maximoaccess.com/t25731-cpf-e-cnpj-com-validacao-do-cpf-e-do-cnpj

E qual Exemplo utilizou?

olá, Bom dia e Obrigado pela Atenção

mas conseguir resolver. informando também para novatos como eu.
o problema estava ocorrendo no método incluir da classe fornecedor.
na instrução de "insert" entre as aspas e a virgula que separa os valores "a", "b"
estava um espaço quando deveria ser assim "a","b". retirei o espaço então funfou legal.