GoTo语句的循环使用？
程序中有很多相同的代码，为了减少代码量我用如下方法，但只能循环一次，请教高人指点一下,例如：

Private Sub Cmd_Click()
.........代码1
GoTo A:
.........代码2
GoTo A:
.........代码3
GoTo A:

A:
..........代码1、2、3中均有的相同代码
End Sub

运行结果却只在代码1后面执行了，而代码2、3却没有执行


[解决办法]
Private Sub Cmd_Click()
.........代码1
call aa
.........代码2
call aa
.........代码3
call aa
end sub

private sub aa()
..........代码1、2、3中均有的相同代码
End Sub