EAN Code und Prüfziffer ermitteln und als Text drucken

Hallo zusammen,

will die EAN-Nr. berechnen lassen und als Text mit Prüfziffer ausdrucken.

So ist im Moment die Formel

if(len(Belegzeilen._VKFaktor) = 1 , barcode$(barcode((left$(Belegzeilen._Artikelcode, 11) + Belegzeilen._VKFaktor), “EAN13”)),
if(len(Belegzeilen._VKFaktor) = 2 , barcode$(barcode((left$(Belegzeilen._Artikelcode, 10) + Belegzeilen._VKFaktor), “EAN13”)),
if(len(Belegzeilen._VKFaktor) = 3 , barcode$(barcode((left$(Belegzeilen._Artikelcode, 9) + Belegzeilen._VKFaktor), “EAN13”)),
barcode$(Barcode((left$(Belegzeilen._Artikelcode, 8) + Belegzeilen._VKFaktor), “EAN13”)))))

Die ersten 12 Ziffern werden angedruckt aber nicht die Prüfziffer.

Wie muß das richtig aussehen?

Bin für jede Hilfe dankbar.

Viele Grüße
Helmut