'----
' этот код добавить в форму вместе с кнопкой
Private Sub Command1_Click()
Dim f As Variant
'f = Shell("c:\autoexec.bat /K", 4)
f = launchDosApp(Text1.Text, True, False, 4)
MsgBox f
End Sub

' этот код добавить в модуль

Public Function launchDosApp(AppString As String, _
Optional fConfirm As Boolean = False, _
Optional fExit As Boolean = True, _
Optional windowstyle = vbMaximizedFocus)
'Запускает дос приложение, коммандная строка которого содержится
' в AppString, Если fconfirm=true, загружается оболочка дос в коммандной
' строке содержится AppString и запрос на исполнение, Если fConfirm = false
' (по умолчанию), приложение запускается сразу, если
' флаг fExit =true, сеанс Дос закрывается после завершение приложения
On Error GoTo err_launchDosApp
Dim sCommandString As String
Dim sKey As String
If fConfirm Then sKey = " /Y"
sKey = sKey & " /" & IIf(fExit, "c", "k")
'Y, C, K ключи Command.com
If AppString = "" Then
'запускается только коммандный процессор
sCommandString = Environ$("comspec")
Else
sCommandString = Environ$("comspec") & sKey & " " & AppString
End If
launchDosApp = Shell(sCommandString, windowstyle)
Exit_launchDosApp: Exit Function
err_launchDosApp:
MsgBox "Ошибка при запуске приложения:" & vbCrLf & _
Err.Number & " " & Err.Description, vbCritical
Resume Exit_launchDosApp
End Function
'----

Операции "копировать", "вырезать","вставить"

'----
' "копировать"

Private Sub mnuEditCopy_Click() 
   On Error Resume Next 
   Clipboard.SetText ActiveForm.rtfText.SelRTF 
End Sub 

' "вырезать"

Private Sub mnuEditCut_Click() 
   On Error Resume Next 
   Clipboard.SetText ActiveForm.rtfText.SelRTF 
   ActiveForm.rtfText.SelText = vbNullString 
End Sub 

' "вставить"

Private Sub mnuEditPaste_Click() 
   On Error Resume Next 
   ActiveForm.rtfText.SelRTF = Clipboard.GetText 
End Sub
'----