GoTo语句的循环使用？解决方法

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