Função para calcular dígito verificador do número do CPF

Com o programa a seguir, calcule os dígitos verificadores (DV) do CPF.
O CPF é um número no formato NNNNNNNNN-XY onde N é um dígito da parte principal do CPF, X é o primeiro DV e Y o segundo.
O código a seguir calcula o primeiro DV dado um número de 9 dígitos. Para calcular o segundo DV basta colocar os mesmos 9´dígitos mais o primeiro DV calculado. Código em (Visual) Basic:

Function DVCPF(Matr As String) As String

Dim X, Cont, Soma, DV, Tam As Integer
Tam = Len(Matr)

Cont = Tam + 1
Soma = 0

For X = 1 To Tam
digito = CInt(Mid(Matr, X, 1))
Soma = Soma + (digito * Cont)
Cont = Cont - 1
Next

DV = Soma Mod 11

If DV < 2 Then
DV = 0
Else
DV = 11 - DV
End If

DVCPF = DV

End Function

Para saber mais sobre o algoritmo e o CPF acesse Algoritmo do CPF - Como calcular o dígito verificador (DV)?

Por War.