Tente entender, o código do concorrente, alem de mais caro, perceba que está codificado de forma a dificultar qualquer alteração ou personalização.
 
'=============== CONFIGURE OS DADOS ABAIXO ========================================
'============== DADOS DO CEDENTE (EMISOR DO BOLETO) =================================
x136= "Nome do Cedente" ' Nome do Cedente Titular da Conta
x49= "11.111.111/0001-01" ' CNPJ Cedente
'============== DADOS DA CONTA DO CEDENTE (EMISOR DO BOLETO) ==========================
x64 = "003376" 'Numero da Conta
dac_conta = "0" ' Digito da Conta 
x83 = "0238" 'Numero da Agência
x9 =   "870" '  CNPJ PV da Caixa  operação 870 para carteira SR (8)

'============= DADOS DO BOLETO A SER GERADO =======================================
x101 = "5,00" ' Valor do Boleto
x33 = "12/07/2004" ' Data de Vencimento
x274= "12/07/2004" ' Data do Documento
x10 = "01"  'Código da Carteira (01, 8, 9, 80, 81, 82, 00)
x81 = "1" ' Nosso numero

'================ DADOS DO SACADO (CLIENTE QUEM PAGA O BOLETO) ======================
x109 = 	"Nome do seu cliente - (Sacado)" ' Nome do seu cliente - (Sacado)
x70 = 	"Endereço do seu cliente - (Sacado)" ' Endereço do seu cliente - (Sacado)
x79 =	"Bairro" ' Bairro Sacado
x74 = 	"CEP" ' CEP Sacado
x67 = 	"Cidade" ' Cidade
x28 = 	"UF" ' Estado

Veja algumas funções abaixo, o concorrente tenta ocultar o "segredo da geração do boleto" utilizando uma codificação numérica sem tabulações, para dificultar a leitura e o entendimento do código. 
Function x32(x126, x13)
Dim x51, x27, x122, x150, x151, cnum
x126 = RTrim(LTrim(x126))
For x150 = 1 To Len(x126)
x151 = Mid(x126, x150, 1)
If IsNumeric(x151) Then
cnum = cnum & x151
End If
Next
x126 = cnum
x122 = "0000000000000000000000000000": x51 = CInt(x51)
If Len(x126) < x13 Then 
x51 = Abs(x13) - Abs(Len(x126)): x27 = Mid(x122, 1, x51) & CStr(x126)
x32 = x27
ElseIf Len(x126) > x13 Then
x32 = Right(x126, x13)
Else
x32 = x126
End If
End Function

Function x16(x15, x36, x94)
Dim x87, x69, x45
x45 = x36 + 1
x87 = ""
Do
If IsNumeric(Mid(x15, (x45), 1)) Then
x87 = x87 & Mid(x15, (x45), 1)
x45 = x45 + 1
End If
Loop While IsNumeric(Mid(x15, (x45), 1))
For x69 = 1 To x87
x94 = x94 & (x91(53))
Next
x36 = x36 + 2
x16 = x94
End Function


Agora veja algumas partes do nosso código

[ Partes dos códigos| Algumas Funções | Documentação ]