Private Sub MyParser(sender As Object, cevent As ConvertEventArgs) If Not New Regex("\d{3}-\d{2}-\d{4}").IsMatch(Me.Text) Then MessageBox.Show("Enter a valid SSN.") Return End If Dim mystr As String = cevent.Value.ToString() cevent.Value = mystr.Substring(0, 3) & mystr.Substring(4, 2) & mystr.Substring(7, 4) End Sub>Cathi: