Load Linie !!!!

Hej !!!!
Jeg mangler en kode til at kunne loade hver 5 linie i en txt fil....

Håber nogle Hardcore Coders kan klare dette

Truti [DK]
ICQ: 72755522
Mail: maac@mail1.stofanet.dk

text1.multiline = true
text1.scrollbar = 2
filnavn = "text.txt"
nl$ = chr$(13) & chr$(10)
Fri = Freefile
open filnavn for input as fri
linie = 1
while not EOF(fri)
if linie = 5 then
line input #fri, ind$
text1.text = text1.text & ind
linie = 0
end if
linie = linie + 1
wend

close fri

her var der en nem løsning.......


Suveræn Kodning Er Vejen Til Suveræne Programmer!!!

Med Venlig Hilsen Kent.

Jeg har løst problemet på en helt anden måde

Private Sub Form_Load()
Dim antal As Integer
Dim tekstvariabel As String
Dim path As String

path = App.path


If File = Dir("fil.txt") Then 'Returerer "filnavn.exe" hvis den findes.
GoTo shutdown
Else
Open "fil.txt" For Input As #1
antal = 0
Do Until EOF(1)
Line Input #1, tekstvariabel
antal = antal + 1
If antal Mod 5 = 0 Then
Text1.Text = Text1.Text & tekstvariabel + Chr(13) + Chr(10)
End If
Loop
Close 1
End If
shutdown:
End Sub