[Resolvido]Validando o número do PIS/PASEP

Eu não estou conseguindo validar o PIS/PASEP.
Sendo que criei uma caixa de texto "PISPASEP" e um botão "Validar".Criei um Modulo "PISPASEP".
O Modulo é esse:
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

E para o botão "Validar" o seguinte codigo:
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[/color]

Mais quando eu digito o Numero do PISPASEP e clico no botão validar e vai para depuração destacando a linha vermelha acima.

O que esta acontecendo?

Boa tarde, rogiel

Se pretende que a função devolva um valor boleano, deve indicar assim:
Public Function PISPASEP(numero As String)as boolean

Cumprimentos,

Naõ emtemdi.

Valor Boleano (boolean) significa numérico, logo se os campos a validar são numéricos o Grande Alexandre deu-lhe a instrução certa

Public Function PISPASEP(numero As String)as boolean

ta ok.

Bom trabalho Rogiel