leggere + righe da file txt

[sintax_error]

con questo codice leggo una riga alla volta da un file .xtx

Open App.Path & "\menu\pics\11.bop" For Input As 1
Dim cnt
cnt = 0
Do While Not EOF(1)
Line Input #1, stringa
Textmain.Text = stringa
Exit Do

cnt= cnt + 1
Loop
Close #1

come poss leggere ad esempio 5 righe alla volta??
GRAZIE