如何读取.rtf格式，并且解析内容

[rkdrc]

下面截取的是文件内容的一部分，请教如何才能将里面的数据提取出来？

要求：
1.先一行一行的找到DIM开头的行
2.找到DIM空格后的=号前的字符串
3.继续向下一行找到X,或Y,或Z开头的行
4.找到对于的数字,数据之间用空格分开的
DIM LOCLD1203N= LOCATION OF POINT LD1203N UNITS=MM
AX NOMINAL MEAS +TOL -TOL DEV OUTTOL
X -481.82 -481.48 1.50 -1.50 0.34 0.00 #
Y -534.08 -534.51 1.50 -1.50 -0.43 0.00 #
Z 88.00 88.76 1.50 -1.50 0.76 0.00 #

DIM LOCLD1204N= LOCATION OF POINT LD1204N UNITS=MM
AX NOMINAL MEAS +TOL -TOL DEV OUTTOL
X -481.82 -483.76 1.50 -1.50 -1.94 0.44 <
Y -459.08 -459.81 1.50 -1.50 -0.73 0.00 #
Z 88.00 88.53 1.50 -1.50 0.53 0.00 #

DIM LOCLD1006N= LOCATION OF POINT LD1006N UNITS=MM
AX NOMINAL MEAS +TOL -TOL DEV OUTTOL
X -503.00 -503.77 1.00 -1.00 -0.77 0.00 #
Y -497.00 -498.22 1.00 -1.00 -1.22 0.22 <
Z 105.00 105.38 1.00 -1.00 0.38 0.00 #

[luofenghen]

RichTextBox1.FileName = App.Path & "\test2.rtf"

[dbcontrols]

        Open FileName For Input As #1
            Do While Not EOF(1)   ' 循环至文件尾。
               Line Input #1, TextLine   ' 读入一行数据并将其赋予某变量。
               If InStr(1, TextLine, "DIM") <> 0 Then '找到带DIM的行
                ''''''用Mid函数截取后面的
               End If
            Loop
        Close #1

[rkdrc]

[Quote=引用 2 楼 dbcontrols 的回复:]
VB code
Open FileName For Input As #1
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
If InStr(1, TextLine, "DIM") <> ……
[/Quote]
谢谢，回头先试试