Devi aggiungerlo subito prima il ciclo FOR
codice:
Do While Min >= 50 And a < 10
 DoEvents
 For a = 0 To 10