原程序大致情况如下：

Private Sub Command1_Click()
........
........
if x=1 then goto fail
.......
.......
if y=1 then goto fail
.......
.......
if z=1 then goto fail
......
.....
.....
......
fail:
.....
.....
.....
End sub
现在我想把这段放到另一个过程中：
if x=1 then goto fail
.......
if y=1 then goto fail
.......
if z=1 then goto fail
通过在执行中调用这个过程，但是在执行中，当遇到x=1,y=1,z=1时不能跳到command1过程中的fail标号处,来执行fail标号后的语句，请如何实现这样的跳转功能？