Visual Basic para Aplicaciones - pregunta

Tengo un botón en un formulario que responde al evento onclick con una serie de instrucciones en las que hay un bucle. Por tanto cuando activo el formulario y hago click en el botón ejecuta el código que tarda unos segundos. Quiero poner otro botón para detener el código cuando yo lo pulse pero mientras está ejecutando el código el formulario no está activo y por tanto no puedo pulsar el botón para pararlo.
¿Sabeis como puedo hacer que siga activo o cómo puedo detener el código desde el formulario?
gracias

Dim Detener As Boolean

Private Sub Form_Load()
Detener=False
End Sub

Private Sub Command1_Click()
Do
DoEvents
...todo tu código
Loop Until Detener
End Sub

Private Sub Command2_Click()
Detener=True
End Sub