Dígito verificador..

Tengo una función que permite realizar ese cálculo, la puedes utilizar directamente en tu formulario o insertar en una hoja de módulo aparte, para poder utilizar la función desde cualquier formulario que desees, acá va, revísalo y me avisas como anda..
Function valida_rut(rt As String) As Boolean
increm = 2
suma = 0
For i = 10 To 1 Step -1
dig = Mid$(rt, i, 1)
If (dig <> ".") Then
dig = Val(dig)
suma = suma + (increm * dig)
If increm = 7 Then
increm = 1
End If
increm = increm + 1
End If
Next i
resto = suma Mod 11
dig_ver = 11 - resto
Select Case dig_ver
Case Is = 11
dig_ver = "0"
Case Is = 10
dig_ver = "K"
End Select
If dig_ver = Mid$(rt, 12, 1) Then
val_rut = True
Else
val_rut = False
End If
End Function
Un abrazo desde Chile..
Master