Adding to the posted suggestions...

Rather than using Left(), Right() and concatenation:

Target.Value = Format(Target.Value, "!@@@@@@@@-@@")

Garry

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc