Private Sub TextBox6_Change()
'"####.##.##-###"
If Len(TextBox6) = 4 Then TextBox6 = TextBox1 & "."
If Len(TextBox6) = 7 Then TextBox6 = TextBox1 & "."
If Len(TextBox6) = 10 Then TextBox6 = TextBox1 & "-"
End Sub
Private Sub TextBox6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
If Len(TextBox6) = 14 Then KeyAscii = 0
End Sub