Const charSet As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%" Function Mod43(C39 As String) As String For i = 1 To Len(C39) total = InStr(charSet, Mid(C39, i, 1)) - 1 + total Next i Mod43 = C39 & Mid$(charSet, (total Mod 43 + 1), 1) End Function
Zapis całej tablicy znaków ASCII w Code 39 Istnieje rozwinięcie kodu 3 z 9 (Code 39 plus) pozwalające zakodować wszystkie 128 znaków kodu ASCII. Znacznik początku i końca kodu oraz 39 standardowych znaków (A–Z, 0–9, -, . i spacja) kodowanych jest identycznie, jak w odmianie podstawowej. Pozostałe symbole reprezentowane są przez sekwencje dwóch znaków podstawowych.
Kodowanie Code 39 plus Nr Znak Kodowanie 0 NUL %U 1 SOH $A 2 STX $B 3 ETX $C 4 EOT $D 5 ENQ $E 6 ACK $F 7 BEL $G 8 BS $H 9 HT $I 10 LF $J 11 VT $K 12 FF $L 13 CR $M 14 SO $N 15 SI $O 16 DLE $P 17 DC1 $Q 18 DC2 $R 19 DC3 $S 20 DC4 $T 21 NAK $U 22 SYN $V 23 ETB $W 24 CAN $X 25 EM $Y 26 SUB $Z 27 ESQ %A 28 FS %B 29 GS %C 30 RS %D 31 US %E Nr Znak Kodowanie 32 [spacja] [spacja] 33 !