vb怎样用回车符取代G140字符的上面整个一行

首先感谢GetSafeHwnd写的这个算法！这个算法已达到要求，非常感谢！
这个算法会一直替换到顶。其实我可能没说明白，我的意思是只把G140的上一行用“回车换行”替换掉留下一个空白的行（可以没有或有一个或多个空格也可以），因为只有G140上一行是无用的，其它行有用。这虽然用command1.enable=false临时解决了这个问题，但保存为文本文件后，如果第二次被其它人在不知情的情况下打开，会再次替换从而破坏文件。当然还可以在文件里记上标记什么的，但其它不知情的人还是可能破坏文件（留空行对文件的结构不造成破坏）。这样第一次G140上面一行替换成空白行，第二次G140上的空白行再次替换成空白行，第N次等于第二次的效果。如下：
G21
G90
T84
C000
G141H000
G1 X10.Y20.
H001
G1 X20.Y25.:G1X13.Y29.
G1 X15.Y23.:G1X16.Y26.
G1 X12.Y18.:G1X22.Y24.
G140H000
(FIG1 2nd)
T85
C902
G142H000
G1 X10.Y20.
H001
G1 X20.Y25.:G1X13.Y29.
G1 X15.Y23.:G1X16.Y26.
G1 X12.Y18.:G1X22.Y24.
G140H000
M00
M02
我再仔细看看算法，看能不能得到启发（其实本人看不怎么懂，能写出这几十行算法的应该在高手）
再次谢谢GetSafeHwnd！！！

下面是Luosen56大神的实现效果
G21
G90
T84
C000
G141H000
G1 X10.Y20.
H001
G1 X20.Y25.:G1X13.Y29.
G1 X15.Y23.:G1X16.Y26.
G1 X12.Y18.:G1X22.Y24.
G1 X10.Y11.:G1X15.Y22.
1
2
3
4
G140H000
(FIG1 2nd)
T85
C902
G142H000
G1 X10.Y20.
H001
G1 X20.Y25.:G1X13.Y29.
G1 X15.Y23.:G1X16.Y26.
G1 X12.Y18.:G1X22.Y24.
G1 X10.Y11.:G1X15.Y22.
6
7
8
9
G140H000
(FIG1 3nd)
T85
C902
G142H000
G1 X10.Y20.
H001
G1 X20.Y25.:G1X13.Y29.
G1 X15.Y23.:G1X16.Y26.
G1 X12.Y18.:G1X22.Y24.
G1 X10.Y11.:G1X15.Y22.
11
12
13
14
G140H000
(FIG4 4nd)
T85
C902
G142H000
G1 X10.Y20.
H001
G1 X20.Y25.:G1X13.Y29.
G1 X15.Y23.:G1X16.Y26.
G1 X12.Y18.:G1X22.Y24.
G1 X10.Y11.:G1X15.Y22.
16
17
18
19
G140H000
M00
M02