Calcular Digito verificador en Excel - Código fuente

Public Function GenDV(ByVal Rut As Long) As String

    Dim dgv      As Integer
    Dim cont    As Integer
    Dim mlp    As Integer
    Dim acm  As Integer
    cont = 2
    acm = 0

    While Rut <> 0
      mlp = (Rut Mod 10) * cont
      acm = acm + mlp
      Rut = Rut \ 10
      cont = cont + 1

      If cont > 7 Then
        cont = 2
      End If

    Wend
    dgv = 11 - (acm Mod 11)
    GenDV = CStr(dgv)
    
    If dgv = 10 Then GenDV = "K"
    If dgv = 11 Then GenDV = "0"

End Function