SoloCodigo

El sub String no me deja almasenarlo

Lo que quiero es sacar solo una parte de la cadena y convertirla en entero
q estara mal?


dim i as interger = 8

dim chaDe1 as String

For largo = Len(rut) To 0 Step -1  
 'el largo hasta llegar a 0 en descenso 1 en 1


            chaDe1 = rut.Substring(i, largo)    
         i = i - 1
            Contiene1Digito = Convert.ToInt32(chaDe1)

' es aqui donde saco solo una parte de al cadena y la dejo en chaDe1

asi es quiero una parte de el string rut
y dejarlo en chaDe1 que es de el mismo tipo comprendes

si es un error en TE

es este
Excepción no controlada del tipo 'System.ArgumentOutOfRangeException' en mscorlib.dll

Información adicional: El índice y la longitud deben hacer referencia a una ubicación en la cadena.

pero  yo encuentro que esta bien...

por lo menos en lo visual

este es el codigo cmopleto

    Function ValidarRut(ByVal rut As String, ByVal dv As String) As Boolean
        Dim numero = 2
        Dim numero2 = 2
        Dim largo As Integer
        Dim i As Integer



        i = 8
        For largo = Len(rut) To 0 Step -1    'el largo hasta llegar a 1 en descenso 1 en 1


            chaDe1 = rut.Substring(i, largo)

            i = i - 1
            Contiene1Digito = Convert.ToInt32(chaDe1)

            If largo = 3 Then

                ContineResultado = ContineResultado + (Contiene1Digito * numero2)
                numero2 = numero2 + 1
            Else
                ContineResultado = ContineResultado + (Contiene1Digito * numero)
                numero = numero + 1
            End If


        Next
        ContineResultado = ContineResultado Mod 11
        ContineResultado = ContineResultado - 11

        If Convert.ToInt32(dv) = ContineResultado Then
            Return True
        Else
            Return False
        End If


    End Function

chaDe1 = Nothing