100行目までの読込

KENLEN  2004-01-10 15:14:05  No: 111213  IP: [192.*.*.*]

こんにちは

Sub Test()

fn = FreeFile
strN = ThisWorkbook.Path & "\test.txt"
Open strN For Input Access Read As #fn
Do Until EOF(fn)
Line Input #fn, strOneLine
Loop
Close #fn
End Sub

では、最終行までの読込ですが、たとえば１００行目までの
読込の場合はどうすればよいのでしょう？
基本的なことですみません。
宜しくお願い致します。

編集 削除
Say  2004-01-10 17:24:25  No: 111214  IP: [192.*.*.*]

Do 〜 Loop を
For 〜 Nextに変更すればいいのでは？

EOFチェックは必要なので、Do 〜 Loopはそのままで
カウンタを用意して脱出条件を付加してもいいですが。

編集 削除