Line tæller

God ide til en line tæller. Har et problem med at udtrække nogle linjer fra en stor txt fil: Jeg mangler en forløkke eller noget andet så jeg kan udtrækker linje nr 158888 til linje nr 200000.
Har prøvet med i = 0 og derefter For Index = 158888 To 200000, men udtrækket sker fra filstart ???

Function Hent_linjer_freeware()

        Dim starttid2, i2, j2, Finish2, sekunder2, ss2
        starttid2 = Timer 'tidsmåling i sekunder starter
  'Dim linie, ord1, ord2, ord3, ord4, ord5, ord6, ord7, ord8 As String
    Dim linier, fillx, filly As String
   
    fillx = fill1.Text
   
    ord1 = ord1.Text
    ord2 = ord2.Text
    ord3 = ord3.Text
    ord4 = ord4.Text
    ord5 = ord5.Text
    ord6 = ord6.Text
    ord7 = ord7.Text
    ord8 = ord8.Text
   
    filly = fill2.Text
   
    Open fillx For Input As #1
    Open filly For Output As #2
    Do While Not EOF(1)
        Line Input #1, linier
If InStr(linier, ord1) > 0 Or InStr(linier, ord2) > 0 Or InStr(linier, ord3) > 0 Or InStr(linier, ord4) > 0 Or InStr(linier, ord5) > 0 Or InStr(linier, ord6) > 0 Or InStr(linier, ord7) > 0 Or InStr(linier, ord8) > 0 Then
          Print #2, linier
        End If
    Loop
    Close #1
    Close #2
            ' tidsmåling - start ligger i toppen
            For i2 = 1 To 1000
            j2 = i2 * i2
            Next i2
            Finish2 = Timer
            sekunder2 = Finish2 - starttid2
            MsgBox "Det tog " & sekunder2 & " sekunder at gennemføre programmet"
            ' tidsmåling slut
           
    MsgBox "Programmet er afsluttet og filen er gemt på: " & fill2 & ""
    ss2 = "explorer C:\acces_databaser"
    'Dim ie As SHDocVw.InternetExplorer ' husk references Microsoft internet controls
    'Set ie = CreateObject("InternetExplorer.application")
    'ie.Visible = True
    ss2 = "explorer " & fill2 & ""  ' åbner kataloget og filen i fil2
    Shell ss2, vbNormalFocus 'sætter den åbne fil forrest i applicationen
            '  skriv evt  vbMaximizedFocus
End Function