Popište lépe co nefunguje.
Když ten kód vložím do excelu a do buňky P5 zadám "Stvrzenka 202500001", vygeneruje to čárový kód:

který podle online čtečky představuje zadaný údaj:

Z kódu jsem jen vyhodil vámi nedodanou funkci

txt = utf16to8(text): m = 3: l = 0: t = Len(txt)
txt = (text): m = 3: l = 0: t = Len(txt)

Tak třeba je problém v ní?