cut lines of text(specific)

[TTn]

--------------------------------------------------------------------------------

I cant seem to find how to simply select a certain number of lines, in a text.

Dim PadId As Integer
On Error Resume Next

PadId = Shell("Notepad MyFile", 1)
AppActivate(PadId)


'select and cut lines 1 thru x. ??? I already have the line counter x.

'paste elsewhere
'save file
'close file

Thanks in advance!