怎么才能快速的在一个子程序的每一行代码后面，插入一句相同的

怎么才能快速的在一个子程序的每一行代码后面，插入一句相同的代码？
比如这样
sub test()
do
a=a+1
if not timer1.enabled then exit sub
b=b+1
if not timer1.enabled then exit sub
c=c+1
if not timer1.enabled then exit sub
d=d+1
if not timer1.enabled then exit sub
e=e+1
if not timer1.enabled then exit sub
f=f+1
if not timer1.enabled then exit sub
loop
end sub
把 if not timer1.enabled then exit sub 插到每一句后面
只能自己手工一个一个复制粘贴吗？有没有方便一些的方法？