VALIDAR CNPJ

RPMARQUES 05/11/2009 01:32:23
#326971 Resposta escolhida

cara...eu uso uma função que retorna FALSE ou TRUE....

[ô]FUNÇÃO PARA VALIDAR CNPJ
Public Function ValidaCNPJ(ByVal pCNPJ As String) As Boolean
Dim Conta As Integer, Soma As Long, Passo As Integer
Dim Digito1 As Integer, Digito2 As Integer, Flag As Integer
isCNPJ = False: pCNPJ = Trim(pCNPJ)
If Len(pCNPJ) <> 14 Then
Exit Function
End If
For Passo = 5 To 6
Soma = 0
Flag = Passo
For Conta = 1 To Passo + 7
Soma = Soma + (Val(Mid(pCNPJ, Conta, 1)) * Flag)
Flag = IIf(Flag > 2, Flag - 1, 9)
Next
Soma = Soma Mod 11
If Passo = 5 Then Digito1 = IIf(Soma > 1, 11 - Soma, 0)
If Passo = 6 Then Digito2 = IIf(Soma > 1, 11 - Soma, 0)
Next
If (Digito1 = Val(Mid(pCNPJ, 13, 1)) And Digito2 = Val(Mid(pCNPJ, 14, 1))) Then
isCNPJ = True
End If
End Function