[RESOLVED] shell command

is it possible to open notepad and write something to it, all automatically with the click of a button?

VB Code:

Private Sub Command1_Click()
Dim i      As Integer
Dim retval As Double
    retval = Shell("notepad", vbNormalFocus)
    AppActivate retval
    For i = 0 To 1000
        SendKeys "test" & vbNewLine, True
    Next i
End Sub