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

Question

下面截取的是文件内容的一部分，请教如何才能将里面的数据提取出来？要求：
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 #
 

Answer 1

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

Answer 2

        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