Private Sub Form_Click()Print Mid(Right(Text1.Text, 1), 1, 1) & "-" & Mid(Right(Text1.Text, 2), 1, 1) & "-" & Mid(Right(Text1.Text, 3), 1, 1)End Sub
