'----
' этот код добавить в форму вместе с кнопкой
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
'----

Думаю, что в очередной раз создать проект с формой вам писать уже не надо :), только надо добавить на форму RichTextBox - rtfText. Для работы с Clipboard используется объект - Clipboard и свойство ActiveForm. Вставте в проект меню с тремя пунктами mnuEditCopy, mnuEditCut и mnuEditPaste.

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

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
'----