i understood it....
going to add to you reputation

Thanks Alot

i did it like :-

For i = 0 To UBound(lines)
If (lines(i) = PHRASE1) Then
line1 = i + 3
Exit For
End If
Next i

For i = 0 To UBound(lines)
If (InStrB(1, lines(i), PHRASE2)) Then
line2 = i - 2
Exit For
End If
Next i