Private Sub TextBox2_Change()
If Len(Me.TextBox2) > 10 Then MsgBox "Длина значения больше 10 знаков!!"
End Sub

Private Sub UserForm_Initialize()
Me.TextBox2.Value = "..2016"
End Sub
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
Unload Me
Shell ("C:\Program Files (x86)\Iteamma\Text Replacer\TR.exe tr /files *.sql /findtext абв /replacetext abc /folder D:\test")
Application.Wait Time:=Now + TimeSerial(0, 0, 5)
ThisWorkbook.Save
Application.Wait Time:=Now + TimeSerial(0, 0, 5)
Shell ("C:\Program Files (x86)\Iteamma\Text Replacer\Kill_TR.exe")
ThisWorkbook.Close
End If
End Sub

Sub WPrintButton_Click()
Worksheets("Упаковочный").Range("A1:H35").PrintOut Copies:=2
Worksheets("Инвойс").Range("A1:I39").PrintOut Copies:=2
Worksheets("Приложение").Range("A1:H50").PrintOut Copies:=3
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Worksheets("Расчетка").Range("H22").Value
Sheets("ДТ").Select
MsgBox "Документы сохранены и распечатаны, заполняйте декларацию!", vbExclamation
End Sub

Sub CopyCrtAButton_click() 
 Range("n2:ab2").Copy 
Shell ("C:\ALTA\zapoln.exe") 
End Sub

sub button_click 
Dim MyData As DataObject 
MyData.SetText "строка текста", 1 
MyData.PutInClipboard
end sub