Erro Boleto SICOB about boleto-test

[impactro]

Usando o link (http://exemplos.boletoasp.com.br/BoletoNet/FuncTeste_DecodIPTE.aspx) para decodificar temos:

Desenvolvedor 7569198893 01001988904 00100700012 5 67910000001000
Sistema 7569130094 01019888906 00100780014 7 67910000001000

Desenvolvedor 756.9.5.6791.0000001000-1988901001988900010070001
Sistema 756.9.7.6791.0000001000-1300901019888900010078001

Desenvolvedor 1 9 88 9 010019 8890 00 10070 0 0 1
Sistema 1 3 00 9 010198 8890 00 10078 0 0 1
Layout: R C yy b nnnnnd AAAA PP CCCCC V 0 D
Direrenças: = A BB = ====CC ==== == ====D = = E

Da documentação temos: (https://github.com/impactro/Boleto-Test/blob/master/DOC/sicredi_cnab400.pdf)
Posição / Tamanho / Conteúdo
1 : Código numérico correspondente ao tipo de cobrança: “1” – Com Registro “3 – Sem Registro”. Obs.: O SICREDI não validará este campo.
1 : Código numérico correspondente ao tipo de carteira: “1” - carteira simples
9 : Nosso número (Ano/Controle/Sequencial/DAC)
4 : Cooperativa de crédito/agência beneficiária
2 : Posto da cooperativa de crédito/agência beneficiária
5 : Código do beneficiário
1 : Será 1 (um) quando houver valor expresso no campo “valor do documento”
1 : Filler – zeros “0”
1 : DV do campo livre calculado por módulo 11 com aproveitamento total (resto igual a 0 ou 1 DV cai para 0)
RCyybnnnnndAAAAPPCCCCCV0D

Das diferenças temos:
A => é só especficar a Carteira = 3
B => No caso o boleto de exemplo deve ter o ano 2000, onde 00 são os ultimos digitos do ano de vencimento do boleto
C => Informe o numero do boleto sem o DAC (digito de verificação) o digito é sempre calculado internamente
D => O código do cedente está diferente, o usado pelo sistema foi 10078
E => Isso é um DAC, se todos os campos anteriores estiverem certos esse também vai dar

então pelos parâmetros do seu código o que está errado é:

ced.Carteira = "3"
ced.CodCedente = "10178"
bol.NumeroDocumento = "0001"
bol.DataVencimento = CDate("11/05/2000")