Precisando de ajuda

Oct 12, 2013 at 5:53 AM
Olá pessoal estou tentando implementar o boleto do bb e ta me retornando o seguinte erro: Seqüência de entrada não estava em um formato incorreto. na linha Linha 308: boleto_bancario.Boleto.Valida() conheci o componente pesquisando no google em um site que tinha um exemplo em Asp.net c# e converti para vb mais esta dando aquele erro alguém pode me ajudar segue o codigo que converti para a criação do boleto.
Dim vencimento As String = "15/10/1981"
        Dim valorBoleto As String = "15.45"
        Dim numeroDocumento As String = "12415487"

        'cedente
        Dim cedente_codigo As String = "1111111"
        Dim cedente_nossoNumeroBoleto As String = "09876543210"
        Dim cedente_cpfCnpj As String = "00.000.000/0000-00"
        Dim cedente_nome As String = "Empresa teste"
        Dim cedente_agencia As String = "1260"
        Dim cedente_conta As String = "63356"
        Dim cedente_digitoConta As String = "9"

        'sacado
        Dim sacado_cpfCnpj As String = "000.000.000-00"
        Dim sacado_nome As String = "Fernanda silva"
        Dim sacado_endereco As String = "Rua teste, 1210"
        Dim sacado_bairro As String = "Centro"
        Dim sacado_cidade As String = "teste"
        Dim sacado_cep As String = "00000-000"
        Dim sacado_uf As String = "TE"

        Dim cedente As New Cedente(cedente_cpfCnpj, cedente_nome, cedente_agencia, cedente_conta, cedente_digitoConta)


        Dim boleto As New Boleto(Convert.ToDateTime(vencimento), Convert.ToDouble(valorBoleto), "16", cedente_nossoNumeroBoleto, cedente)
        boleto.NumeroDocumento = numeroDocumento

        Dim sacado As New Sacado(sacado_cpfCnpj, sacado_nome)
        boleto.Sacado = sacado
        boleto.Sacado.Endereco.[End] = sacado_endereco
        boleto.Sacado.Endereco.Bairro = sacado_bairro
        boleto.Sacado.Endereco.Cidade = sacado_cidade
        boleto.Sacado.Endereco.CEP = sacado_cep
        boleto.Sacado.Endereco.UF = sacado_uf

        Dim instrucao As New Instrucao_BancoBrasil
        instrucao.Descricao = "Não Receber após o vencimento"

        boleto.Instrucoes.Add(instrucao)
        Dim especie As New EspecieDocumento_BancoBrasil(33)
        boleto.EspecieDocumento = especie

        Dim boleto_bancario As New BoletoBancario()
        boleto_bancario.CodigoBanco = 1
        boleto_bancario.Boleto = boleto
        boleto_bancario.MostrarCodigoCarteira = True
        boleto_bancario.Boleto.Valida()

        boleto_bancario.MostrarComprovanteEntrega = True

        pnl_boleto.Controls.Add(boleto_bancario)
Desde já agradeço a ajuda,