檔案就變很慢(編號：5386)

請問各位先進,小弟目前在寫一個程式
關於從檔案讀取資料再加以判斷
須一行一行讀,再從一行裡讀一個一個字元來判斷
我的寫法如下
open file for input as #1
while not eof(1)
line input,Lst 'Lst dim as string'
sel=mid(lst,1,3) 'sel dim as string'
.......
loop
但由此中間程式碼多
始得存取大概300k的檔案就變很慢
請問有無更快方法????
thanks