1: Public bCancelFlag As Boolean 2: 3: Private Sub BTN_CANCEL_Click() 4: bCancelFlag = True 5: End Sub