Boa Tarde pessoal eu peguei esta função no link abaixo parece que e em C# e transformei em vb.net só que esta dando o erro na linha em destaquehttps://github.com/BoletoNet/boletonet/blob/master/src/Boleto.Net.MVC/Models/Exemplos.csPublic Sub GeraBoletoCE(ByVal qtde As Integer) ' Cria o boleto, e passa os parâmetros usuais Dim ce As BoletoBancario Dim boletos As New List(Of BoletoBancario)() For i As Integer = 0 To qtde - 1 ce = New BoletoBancario() ce.CodigoBanco = _codigoBanco Dim vencimento As New DateTime(2007, 9, 10) Dim instr As New Instrucao(1) Dim c As New Cedente("00.000.000/0000-00", "Next Consultoria Ltda.", "0123", "100618", "9") c.Codigo = 112233 ' BoletoNet.Boleto b = new BoletoNet.Boleto(vencimento, 20.00m, "14", "0123456789", c); Dim b As New Boleto(vencimento, 2952.95, "14", "0123456789", c) b.NumeroDocumento = "21212114779797" '1b.NossoNumero b.Sacado = New Sacado("000.000.000-00", "Jose Pedro Ongueira de Oliveira") b.Sacado.Endereco.[End] = "Rua Dr. Henrique Portugal, 12" b.Sacado.Endereco.Bairro = "Loteamento Lago Sul" b.Sacado.Endereco.Cidade = "Palmas" b.Sacado.Endereco.CEP = "77062141" b.Sacado.Endereco.UF = "TO" b.Sacado.Endereco.Logradouro = "Rua Dr. Henrique Duarte Lima" b.Sacado.Endereco.Numero = "8980978987" b.Sacado.Endereco.Complemento = "Casa" b.NumeroDocumento = "00001" b.DataProcessamento = DateTime.Now b.DataDocumento = DateTime.Now instr.Descricao = "Não Receber após o vencimento" b.Instrucoes.Add(instr) ce.Boleto = b ce.Boleto.Valida() boletos.Add(ce) Next GeraLayout(boletos) End Sub