프로그램 실행 후 텍스트 입력하고 엔터 보내는 방법

아래처럼 프로그램을 실행했을 때 Text1에 내용을 입력한 뒤 엔터를 누르게 하려면 어떻게 해야 하나요?

Private Sub Command4_Click()
For i = 1 To Text2.Text
Shell 프로그램 경로
Next i
End Sub