aunke este no es un foro de visual basic, no esta demas brindarle la mano a un colega chileno que lo necesite...espero ke lo aproveches.
Son dos text, en el primero va el rut (sin digito verificar) y el segundo text va el digito verificador. Se activa usando el keypress y el lostfocus de los text
<pre>
Private Sub Tex_DvCli_KeyPress(KeyAscii As Integer)
Dim q As Control
Dim d As String
Dim LC_Digito
If KeyAscii <> 8 Then
LC_Digito = Tex_RutCli.Text & "-" & Chr(KeyAscii)
If Len(LC_Digito) >= 12 Then
d = ""
For i = 1 To 12
If Mid(LC_Digito, i, 1) <> "." Then
d = d & Mid(LC_Digito, i, 1)
End If
Next i
If Valida_Rut(d, q) = 3 Then
MsgBox "Error, RUT no Válido", vbCritical, "Maestro Cliente"
Tex_RutCli.Text = ""
Tex_DvCli.Text = ""
KeyAscii = 0
Tex_RutCli.SetFocus
End If
End If
End If
End Sub
</pre>
De ahi viene la 2da parte