end ：结束
stop：跟设置断点类似
exit sub，退出过程
exit for，退出for
application.quit，退出程序
dim i
for i=1 to 6
i=i+1
if i=4 then end(exit for,exit sub,stop,,,,)
next
错误值处理方法：
on error goto xxx
on error resume next
