Función para obtener dígito verificador en VB6

En esta oportunidad les traemos una muy útil función que nos servirá a la hora de querer obtener el dígito verificador de un Rut.

Function dv(rut as String)
 j = 2
 For i = 0 To Len(rut) - 1
   aux = aux + Val(Mid$(rut, Len(rut) - i, 1)) * j
   If j > 6 Then
    j = 2
   Else
    j = j + 1
   End If
 Next i
 aux1 = 11 - (aux Mod 11)
 If aux1 < 10 Then
   dv = aux1
 Else
   dv = "K"
 End If
End Function

Esperamos sea de su utilidad.

Saludos