Sortie d'une procédure

Existe-t-il un moyen de sortir d'une procédure avant d'en avoir exécuté toutes les instructions ? (style EXIT SUB de FreeBASIC)

Code:

sub Test(a)
 if a = 0 then exit_sub

 ' .... autres instructions ...

end_sub

Ou bien faut-il faire un branchement ?

Code:

sub Test(a)
 if a = 0 then goto fini

 ' .... autres instructions ...

fini:
end_sub

EDIT : Je viens de voir, il y a bien EXIT_SUB dans le manuel ! Honte sur moi  

Moralité : toujours lire le manuel

Il me semble qu'avec un exit_sub on est sorti d'affaire

T'as été plus vite que moi. 
Comme quoi en France on a tendance à oublier les modes d'emploi (ça m'est arrivé plus souvent qu'à mon tour de réinventer l'eau tiède... )

Bonjour,
Sortir d'une procédure avec EXIT_SUB ou END_SUB ne pose pas de problème.
Mais il y en a parfois un lorsque étant l'exécution d'une procédure, et avoir un clic d'un  bouton pendant cette lecture a une certaine conséquence.
Je ne peux pas le démontrer maintenant, car l'essai dans un programme simple fonctionne. Par contre Dans certains codes, il y a problème.
J'ai relevé le problème, et sur le programme en cours, je ferais la constatation. Mais sur ce programme j'avance pas vite, car complexe, et je ne suis dessus régulièrement.
Disons que dans le sous-programme d'un clic, on voit que le problème est "semi-résolu" avec EXIT-SUB dans ce sous-programme en dehors de la sub. Si on retourne dans la procédure, on a plus le message disant que telle variable locale est déjà définie. On verra le moment voulu.