Boleto Caixa Econômica Federal

Código:

http://www.usandoaccess.com.br/dicas/dica41.asp?id=1#inicio

Function fncCalculaDVNossoNumero(sequencia)
Dim fator As Byte
Dim total
Dim numero
Dim resto
Dim resultado
Dim i As Integer

fator = 2
total = 0
For i = Len(sequencia) To 1 Step -1
    numero = Mid(sequencia, i, 1)
    If fator > 9 Then
        fator = 2
    End If
    numero = numero * fator
    total = total + numero
    fator = fator + 1
Next
resto = total Mod 11
resultado = 11 - resto
If resultado > 9 Then
    fncCalculaDVNossoNumero = 0
Else
    fncCalculaDVNossoNumero = resultado
End If
End Function