Greetings
I need to read a file in segments for example
if the file is 28 lines long
I read first 4 lines then exit again opens the file read next four line and exit and so on
I am using file system object
The code is

dim fs as new scripting.filesystemobject
dim scr


scr=fs.opentextfile("Path",forreading)
do until scr.atendofstream
scr.readline()
loop

scr.close
scr=nothing

this code reads the whole file line by line but I cannot figure out how to read line in segments equal or unequal

Awaiting your reply and thnx in advance