انتقال txt به text

دوستان من یک فایل txt دارم که 10 کیلوبایت توش نوشته هست.
یه برنامه هم دارم که توش یک text و یک command دارم.
می خوام هر وقت روی دکلمه کلیک کنم 2 کیلوبایت بیاره توی text و همینجور تا آخر ، 2kb ، 2kb انتقال بده برام . بدون اینکه چیزی از فایل txt پاک بشه.

با فرض اینکه نوشته های توی فایل انگلیسی باشه:

Public counter as integer

Private Sub Command1_Click()

dim s as byte

dim s1 as string

dim cc as integer

if counter <5 then

sFileName = App.Path & "\myfile.txt"

n = FreeFile()

Open sFileName For Random Access Read As #n Len=1

s1=""

for cc=counter*2048+1 To counter*2048+2048

Get #n, cc, s

s1=s1 & Chr(s)

next cc

close #n

Text1.Text = s1

counter=counter+1

else

MsgBox "End of File"

end if

end sub

دوستان چطور میتونم هر 2 کیلوبایتی که توسط سورس بالا به برنامه انتقال بدم رو از فایل txt حذف کنم.

و چطور میتونم دیتاهای منتقل شده رو با (-) از هم جدا کنم و توی یک خط منتقل کنم.. مانند عکس ضمیمه

راه حلی نیست؟

سلام از این کد استفاده کن

Text.text= replace(text.text, "-", vbcrlf )