Exit For in While

Dim d As Boolean

Private Sub Command1_Click()
    d = True
End Sub

Private Sub Form_Load()
    
    Me.Visible = True
    Me.Refresh
    DoEvents
    
    d = False
    
    For i = 0 To 100
        While 1
            DoEvents
            Me.Refresh
            If d Then Exit For
        Wend
    Next
    
    MsgBox "done!"
    
End Sub