You can't automate WordPad or NotePad, unless you use the dreaded SendKeys
method. It would be much easier to use VB's own file input/output functions
to write the text file. Something along the lines of

Sub WriteToTextFile()
   Dim FName As Variant
   Dim FNum As Integer
   Dim R As Range

   FName = Application.GetSaveAsFilename(filefilter:="Text Files
(*.txt),*.txt")
   If FName = False Then
       ' user cancelled
       Exit Sub
   End If

   FNum = FreeFile()
   Open FName For Output Access Write As #FNum
   For Each R In Range("A1:A10")
       Print #FNum, R.Text
   Next R
   Close #FNum
End Sub

See also www.cpearson.com/Excel/ImpText.aspx