Searching a text file with VBA

[JacobY]

I am trying to gather the value from a line after another line...

Sub GetLayerNames()
Dim DPFLine As Variant
Dim I As Integer
Open "C:\Documents and Settings\JEY\Desktop\DEMO.las" For Input As #1
While Not EOF(1)
Line Input #1, DPFLine
If DPFLine = " 8" Then
'Here is where I want to get the next line
'out of the text file

End If
Wend
Close #1

Thanks in advance

Jake

 

[dsi]

Do While Not EOF(1)
    Line Input #1, DPFLine
    If DPFLine = "  8" Then
        'grab next line 
        Line Input #1, DPFLine
        Exit Do
    End If
Loop