Kod:
Function BarkodHesapla(barkodid)
Dim B(1 To 12) As Integer
For N = 1 To 12
B(N) = Mid(barkodid, N, 1)
Next
hsp1 = B(2) + B(4) + B(6) + B(8) + B(10) + B(12)
hsp2 = B(1) + B(3) + B(5) + B(7) + B(9) + B(11)
sonuc = 10 - ((3 * hsp1) + hsp2) Mod 10
BarkodHesapla = sonuc
End Function