problema con digito verificador

[eduardovasgar]

Sigo con problemas o es que la empresa tiene mal puesto el digito verificador.

Explico: De acuerdo al algoritmo entregado por el registro civil la normativa n1 no se estaria cumpliendo, eso implicaria que la empresa tiene mal puesto el rut o es que me esta fallando el algoritmo a mi??? me podria ayudar-...

Aca va el ejemplo:
81110200-K <- este es el rut de la empresa

Segun los calculos me esta dando como resultado 8 lo que no coincide con la
el digito verificador K

Este es el algoritmo que estoy empleando.
Ya lo probe con 2 rut y el mio propio y el de mi hija que es con extension K
me corrio bueno pero para el ejemplo de arriba no me funciona.

DG = UCase(Right(Rut, 1))
vpos = 2
Acumulador = 0
For Contador = Len(Rut) - 1 To 1 Step -1

Acumulador = Acumulador + Val(Mid(Rut, Contador, 1)) * vpos

vpos = vpos + 1
If vpos = 8 Then
vpos = 2
End If
Next

Digito = 11 - (Acumulador Mod 11)
RutDigito = CStr(Digito)
If Digito = 10 Then RutDigito = "K"
If Digito = 11 Then RutDigito = "0"

If RutDigito = DG Then ValidarRut = True