Je donne ici une version plus propre du code
Option Explicit
´on ne déclare pas A ici, car ce n´est pas une variable globale
Private Sub Form_Load()
´mettont la procédure ici, c´est plus simple
dim A as long
A=0
do
´Do permet de faire une infinité de boucle ( en fait, " seulement" 2 milliard.
A=A+1
MsgBox " cela fais"& str(A) &" fenêtre que tu ferme", vbCritical, " LOL"
´notez qu´il n´y a pas d´espace entre ´fais´ et ´"´ mais qu´il y en as entre ´"´ et ´fenêtre´
loop
unload me
End Sub
Tout ça pour doner en fait l´équivalent de ce sujet sur le forum propgrammation, qui est plus approprié pour les question de programmation pur.
https://www.jeuxvideo.com/forums/1-47-3991-1-0-1-0-0.htm