Userform Textbox Number Formatting VBA

I have a textbox on a userform that needs to automatically format to #########-#####
I am using this to add the "-" after the 9th digit, however some of my users are pasting the data into the text box with a dash already in the number, creating a second dash.

Please Login or Register  to view this content.

How can I change this so it doesn't matter if the user enters a dash or not, it only shows the dash at the 10th position and if the user only enters 9 numbers to add five zeros at the end? Formatting should look like this:

if entered 123456789 should change to 123456789-00000
if entered 12345678912345 should change to 123456789-12345
if entered 123456789-12345 should stay 123456789-12345

This is untested, but can you remove/replace an existing dash if it exists before adding your own?

Please Login or Register  to view this content.

But I see you code is only checking if the Length is equal to 9. What if it is greater than 9?

Replace isn't working here, when I compile the code it says Argument not optional

sorry, try this.

Please Login or Register  to view this content.

Unfortunately this doesn't fix my problem. With the above, when the user types the data in and types a dash, it shows two dashes in the text box. Also, if the user pastes the info into the text box the data does not update or change.

I think you need to post a sample of what, or more really when you want to check for the extra dash and remove it.

If you want the dash removed when they type in the userform you likely need the code in an after update like this below

Please Login or Register  to view this content.