Create formula or macro to add upc check digit with leading zero

[mthomas_mi]

I've been able to create working cells that have all 11 digits of the upc, create the correct check digit and show up as a working bar code. I have not been able to do this with upc numbers that start with zero. Any suggestions?

Thanks.