4 textbox's sendo:
1) txt_cod = código do cliente
2) txt_desc = descrição do produto
3) txt_data = data atual
4) txt_final = o valor concatenado
txt_data = Format(Date, ddmmyy)
txt_final = txt_cod & "-" & Left(txt_desc, 3) & "-" & Replace(txt_data, "/", Empty)
Falou!