Text Format in Macro Limits to 15 or Less Characters

I was wondering if you can help me out with a macro I am trying to write. The basic problem is that we have some identification codes that have a large number of characters and sometimes a mix of letters. Excel defaults to scientific notation for these items. I want them to be in a text format so that all of the characters can be seen. I have created a macro that works great as long as the character length is 15 or less. At greater than 16 characters excel automatically defaults to scientific notation again. The only way around this is to have the cell formatted as text BEFORE the information is input into the cell. The way I see it, is that if the macro inserted a column to the right of the existing column, formatted the new column as text, and then copy and pasted the resulting values from my current macro to these new cells, the problem would be solved.

Here is the macro as it stands (and works perfectly for a character length of 15 or less):

Please Login or Register  to view this content.

Do you have any suggestions or ideas on how to fix the problem? I would appreciate your help.

Please Login or Register  to view this content.

seems to work for me.