Adding Leading Zero's

Hello,
I would like to add leading zero’s to VBA and I’m not having much luck. What I am trying to do is break up a line of text and then make sure to add leading zero’s to an official ID. When I write a normal formula it would be something like =text(a1,”000000000000”) but when I add this to the VBA it just puts that part of the VBA in the cell. I need the numeric part of the ID to be 12 digits.
For example, HOCAN123456789012.

I have attached a spreadsheet for reference and the code below as well.

Thank you in advance!

Please Login or Register  to view this content.

I'm having trouble with what you are stating. I might not have explained this real well. I would like to start with location number 159 and take the next 5 spaces and then start with location 165 and then the next 12 spaces. Since most of the time I need to add the leading zero's to the numbers that are populating the text document starting at space 165. Most of the time it is 6-8 numbers.

Right now when I add the code provided it gives me an error. How I'm reading the code provided I would just be adding leading zero's to what ever is listed in A1. Though I might not be reading this correctly.

Below is what is not working.

Please Login or Register  to view this content.

I'm having trouble with what you are stating. I might not have explained this real well. I would like to start with location number 159 and take the next 5 spaces and then start with location 165 and then the next 12 spaces. Since most of the time I need to add the leading zero's to the numbers that are populating the text document starting at space 165. Most of the time it is 6-8 numbers.

Right now when I add the code provided it gives me an error. How I'm reading the code provided I would just be adding leading zero's to what ever is listed in A1. Though I might not be reading this correctly.

Below is what is not working.

Please Login or Register  to view this content.