Función que permite validar Rut.

Public Function F_VerificaRut(ByVal rrr, ByVal vvv) As Boolean
On Error GoTo Ocurrio_Error
Dim Rut(7) As Integer
Dim i As Integer
Dim Suma As Integer
Dim J As Integer
Dim Dig As Integer
Dim Digs As String
Dim Resultado As Boolean
Resultado = False
Dim aux As Long
For i = 7 To i > 0 Step -1
    aux = Fix(rrr / 10)
    Rut(i) = rrr - aux * 10
    rrr = Fix(rrr / 10)
Next

J = 2
For i = 7 To i > 0 Step -1
    Suma = Rut(i) * J + Suma
    J = J + 1
    If J = 8 Then
        J = 2
    End If
Next

Dig = 11 - (Suma Mod 11)
If Dig = 11 Then
    Digs = "0"
Else
    If Dig = 10 Then
        Digs = "K"
    Else
        Digs = CStr(Dig)
    End If
End If

If UCase(vvv) = Digs Then
    Resultado = True
End If
F_VerificaRut = Resultado
Exit Function
Ocurrio_Error:
    MsgBox "Ocurrio un Error en Proc. F_VerificaRut: " & _
            Err.Description, vbCritical, "ERROR EN VERIFICAR EL RUT"
End Function