VB如何读取文本文件.txt里的符合条件的行

VB如何读取文本文件.txt里的符合条件的行，比如，有test.txt文件中有：
Dose[cGy] Relative dose [%] Ratio of Total structure volume [%]
6691.2 104.55 50.0358
6691.3 104.552 50.0148
6691.4 104.533 49.9937
6691.5 104.555 49.9728
读取 Ratio of Total structure volume [%] 这一列中最接近50的一行。也就是为了显示
6691.4 104.533 49.9937 这一行，请问如何编写代码？并且请详细解释，本人是新手，不胜感激！

就这几步了
1、打开文本文件
open filename for input as #1
2、line input #1,X '一次读一行
3、读出来后，放在数组里，然后比较大小就行了
在读出一行时，可以用split函数，把每个值分割出来
split函数用法，可以百度查

这个代码很简单的，如果你不急，可以留下邮箱，帮你写写

function lines(txtpath as string, byval startline as integer, linenum as integer) as string '显示 txtpath 文件的从startline 行开始的 linenum 行的内容 lines = "" dim filetxt as string, x as variant, i as integer filetxt = string(filelen(txtpath), " ") open txtpath for binary as 1 get #1, , filetxt close 1 x = split(filetxt, vbcrlf) msgbox ubound(x)+1 '行数 if startline > ubound(x) then msgbox "行溢出", 64, "err!": exit function if startline <= ubound(x) then if startline + linenum <= ubound(x) then for i = startline to startline + linenum - 1 lines = lines & x(i) & " " next else for i = startline to ubound(x) lines = lines & x(i) & " " next end if: end if end function 如果文本文件很多行的可以用sendmessage

一行一行的读 判断一下特定行的特征值就可以了 我一直都是这么做的