13 basamaklı sayıyı otomatik verdirme

arkadaşlar
bir alan var sayı içeren bu alana birbirinden farklı (ama muhakkak farklı)
13 haneli sayı ekletme istiyorum. bir düğmeye tıkladığımda bahsettiğim alana
13 haneyi geçmeyecek şekilde sayı ekletmek istiyorum.
bazı alanlardaki verileri kullanmak istiyorum. (kodu=4 haneli)
id=1,2,3... haneli olabilir bulunduğumuz yıl(2011 gibi ) bunları birşeltirip
toplamda 13 haneyi geçmeyecek bir sayı türetmek mümkünmüdür?
teşekkür ederim.

Ek Dosyalar

İşinize yarar umarım,

Ek Dosyalar

Günaydınlar ve katkınız için teşekkürler sayın sledgeab...

sayın admin, teşekkür ederim ilginize
sizin yazdığınız kodu kendime göre uyarladım ancak
bu seferde üretilen barkod numarası ile (13 haneli)
barkodun ürettiği numaranın son hanesi eşleşmiyor ?
barkodx sisteminizde çalışması için ocx, ve fontları ekliyorum
açıklama word belgesinde mevcut..
kolay gelsin..

Ek Dosyalar

Barkod numarasının 13. ve son basamağı kontrol basamağı adı verilen bir basamakmış ve otomatik olarak hesaplanıyormuş.

Ek Dosyalar

sayın admin,
süper bir çözüm üretmişsiniz.. sağolun.
ancak kod satırındaki
" For N = 1 To 12"
burada "N" hata veriyor neden olabilir sizce
??