Converte uma string de caracteres em uma string 128B ou um 128C de código de barras para uso em Excel ou Word
string ou variável contendo uma string para conversão
string de código de barras com checksum
chamar a função Cb128(string ou varável)
//seta a fonte Code 128 no range de células
chWorkSheet:Range("K1:K18"):FONT:NAME = "Code 128".
//chama a função que fará a conversão da string
chWorksheet:range("K1:K18"):VALUE = Cb128(c-string).