SoloCodigo

Es porque el valor devuelto a tu variable I es demaciado grande cambia el tipo de dato de la variable I a un tipo long

Es porque estas intentando sumar una valor integer ( tus variables ) y una variable de tipo cadena...
Si digamos que tienes una cadena de este tipo: "abcd123"
y quieres hacer una operacion aritmetica con el 2 que se encuentre en la cadena, tenes que usar la funcion CInt para
que lo pueda convertir a valor entero y podas hacer operaciones aritmeticas

Me dices que son de tipo integer las variables vari1, vari2, vari3

dices que aqui da error:
Vari1 = Vari1 + Left(Right(txtRut, I + 1), 1) * Vari3

y dices que no funciona entonces debe ser porque el caracter que se obtiene despues de las operaciones:
Left(Right(txtRut, I + 1), 1) no es un alfanumerico.. que quieres hacer ?

codigo.

Lindo precioso... lo solucioné... muchas gracias... me ayudaste a encender la ampolleta.. jhajajajja
 toy feliz feliz...
 sabes lo que era¿?¡ 


Private Sub txtRut_Change()

    If txtRut.Text = "" Then
        txtdigito.Text = " ?[/b]" ' Esto era.. simplemente dejar el campo de texto "" asi... vacio...
    End If
    Dim CAL1, CAL2, CAL3 As Integer
    Dim I As Long
        CAL3 = 2
    For I = 0 To Len(txtRut) - 1
         If Left(Right(txtRut, I + 1), 1) <> "." Then
        CAL1 = CAL1 + Left(Right(txtRut, I + 1), 1) * CAL3
        CAL2 = CAL1 Mod 11

            Select Case CAL2
                 Case 0
                  txtdigito.Text = "0"
                 Case 1
                  txtdigito.Text = "K"
                 Case Else
                  txtdigito.Text = 11 - CAL2
            End Select

            If CAL3 = 7 Then
                CAL3 = 2
            Else
                CAL3 = CAL3 + 1
            End If
        End If
    Next
End Sub



 como no lo vi antes... ... muchas gracias.... eres un sol...