leggere + righe da file txt

[optime]

Dim cnt, iRows as integer, iIndex as Integer

Open App.Path & "\menu\pics\11.bop" For Input As 1 

cnt = 0 
iRows = 0
iIndex = 0

Do While Not EOF(1) 
   Line Input #1, stringa
   Textmain.Text = Textmain.Text & stringa & vbcrlf
   cnt= cnt + 1 
   If cnt=5 Then 
      iIndex=iIndex + 1
      If iIndex = valore_della _list_box Then
         Exit Do 
      Else
         cnt = 0
         Textmain.Text = ""
      End If
   End If
Loop 

Close #1