(j'ai mis en forme ta source)

Comme un
If toto=1
then
25->tata
End
qui peut être remplacer par
If toto
25->tata

Je suis pas sur que ça te fasse gagner de la vitesse, mais seulement quelques octets. Le truc auquel il faut faire attention dans un programme c'est surtout les boucles males faites du genre avec des labels, etc...
Par éxemple :

Lbl 1
While 1
If [truc]:Goto 1
[...]
End

Ici le code n'est pas bon car dans le cas ou le truc est égale à 1 on saut au label sans que la boucle 'While' n'est rencontrer le 'End' (et par ailleur on peut remplacer 'While 1' par 'For(I,1,1E99)', d'après very c'est un peu plus rapide ).