PC Toledo

Pessoal,
Para quem está precisando do código para validação de CEI em Visual Basic 6, eis um exemplo:

Function valida_CEI(ByVal pCEI As String) As Boolean
Dim nTot As Byte
Dim cAux As String
Dim lRet As Boolean
Dim i As Byte
Dim pNu_cei As String

valida_CEI = False

nTot = 0
cAux ...