VB Code format for different length strings

[Scalpel4]

I've got a program trying to format a cell range of credit cards. Since Amex is 15 characters and everything else is 16, I need to build a format that won't add a leading 0 digit to a text string that is 15 characters long. Here's my code thats not working. Any recommendations?

Please Login or Register  to view this content.

It's late, I'm tired, and I'm sure I'm doing something obviously stupid, so any recommendations would be helpful.

[mike7952]

Maybe this.

Please Login or Register  to view this content.

[Scalpel4]

Perfect, thanks for the late night help!