Sub RunProgramm()

Dim ProcID As Integer

' Запускаем калькулятор
ProcID = Shell("C:\WINDOWS\system32\calc.exe", vbMaximizedFocus)

' Запускаем "Блокнот" в вставляем в него выделенный текст
Selection.Copy
ProcID = Shell("Notepad", vbMaximizedFocus)
SendKeys "^V", True

End Sub