VB - Validando o número do PIS/PASEP.

Para validar o número do PIS/PASEP utilize a função dada abaixo:

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

- Para testar a função inicie um novo projeto no VB e no formulário padrão defina o layout como abaixo:

No evento Click do botão de comando - Validar - insira o código que chama a função e passa o número informado como parâmetro.

Private Sub Command1_Click()
If PISPASEP(Text1.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

Acabou !!!

José Carlos Macoratti