Validação de CPF

Bom dia.. Eu peguei um código de validação de cpf no site mas não está passando quando o cpf é INVÁLIDO (dá erro)..

Quando eu digito o cpf de maneira correta funciona, mas se o cpf é inválido dá erro.

segue o código..

Public Class valida_CPF Private dadosArray() As String = {"111.111.111-11", "222.222.222-22", "333.333.333-33", "444.444.444-44", _ "555.555.555-55", "666.666.666-66", "777.777.777-77", "888.888.888-88", "999.999.999-99"} Private Const msgErro As String = "Dados Inválidos" Private bValida As Boolean Private sCPF As String Public Property cpf() As String Get Return sCPF End Get Set(ByVal Valor As String) bValida = ValidaCPF(Valor) If bValida Then sCPF = Valor Else Throw (New System.ArgumentException(msgErro, "Numero do CPF")) End If End Set End Property Public ReadOnly Property isCpfValido() As Boolean Get bValida = ValidaCPF(cpf) If bValida Then Return True Else Return False End If End Get End Property Private Function ValidaCPF(ByVal CPF As String) As Boolean Dim i, x, n1, n2 As Integer CPF = CPF.Trim For i = 0 To dadosArray.Length - 1 If CPF.Length <> 14 Or dadosArray(i).Equals(CPF) Then Return False End If Next 'remove a maskara CPF = CPF.Substring(0, 3) + CPF.Substring(4, 3) + CPF.Substring(8, 3) + CPF.Substring(12) For x = 0 To 1 n1 = 0 For i = 0 To 8 + x n1 = n1 + Val(CPF.Substring(i, 1)) (10 + x - i) Next n2 = 11 - (n1 - (Int(n1 / 11) 11)) If n2 = 10 Or n2 = 11 Then n2 = 0 If n2 <> Val(CPF.Substring(9 + x, 1)) Then Return False End If Next Return True End FunctionEnd ClassIsso está dendo de uma classe..

Isso está dentro do botão Validar..

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cpf1 As New valida_CPF cpf1.cpf = TextBox1.Text If cpf1.isCpfValido() Then MsgBox("CPF valido") Else MsgBox("CPF Inválido") End If End SubEnd Class

Ahh.. gostaria também de tirar os pontos.. ou seja.. validar quado a pessoa digitar sem os pontos e o tracinho.. pois esse código eu irei incorporar um um outro que varrer um arquivo inteiro e sai verificando se os cpf´s são válidos ou não.. e esse cpf´s são todos sem os pontos e traço.

Grata

Letícia