Try

Dim strSSN as String
strSSN = "1234567-89"
'OR
'strSSN = TextBox1.Text
MsgBox Format(Replace(strSSN, "-", ""), "000-00-0000")

If this post helps click Yes
---------------
Jacob Skaria


"Luke" wrote:

I have a TextBox where the user is supposed to enter a SSN and a macro that
will search through records on another spreadsheet in an effort to match the
SSN. Sometimes users enters dashes in the SSN and sometimes they don't.
However, all the SSN's in the records have the dashes in them.

If someone enters a SSN without using dashes (or enters the dashes in the
wrong place), how do I adjust the TextBox value so that it is also a
"###-##-####" value just like the ones in the spreadsheet? Just having it
formatted as a SSN won't work; it actually needs to be "###-##-####".

Thanks all.