Validar PIS/PASEP

Olá Amigos.

Para validar um número de PIS/PASEP cole num módulo a função abaixo:

Option Compare Database
Public Function PISPASEP(numero As String)
Dim ftap As String
Dim Total As String
Dim I As Integer
Dim Resto As Integer

If Val(numero) = 0 Or Len(numero) <> 11 Then
PISPASEP = False
Exit Function
End If

ftap = "3298765432"
Total = 0

For I = 1 To 10
Total = Total + Val(Mid(numero, I, 1)) * Val(Mid(ftap, I, 1))
Next I

Resto = Int(Total Mod 11)

If Resto <> 0 Then
Resto = 11 - Resto
End If

If Resto <> Val(Mid(numero, 11, 1)) Then
PISPASEP = False
Exit Function
End If

PISPASEP = True

End Function


Depois no evento após atualiza do campo PIS ou PASEP insira o código abaixo:

Private Sub PIS_AfterUpdate()
If PISPASEP(PIS.Text) Then
MsgBox "Número PIS/PASEP válido !", vbInformation, "PIS/PASEP"
Else
MsgBox "Número PIS/PASEP inválido !", vbInformation, "PIS/PASEP"
End If
End Sub


Abraços, WSenna

Obrigado pela contribuição WSenna, muito bom..