退出exit，错误处理

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