Sorry to have been a while getting back to you. I expect you have solved the
problem anyhow but if not, the answer is
Create a module level variable (i.e. declared outside the sub) Call it
ItemEntryReturn
in the click event of the each button put code like
ItemEntryReturn="Skip"
ItemEnty.Close
In your main code then include a case statement
Select case ItemEntryReturn
Case "Skip"
Goto NEXTFOR
Case "Cancel"
Exit Sub
End Select
If the form is closed by any means other than Skip or Cancel then the code
will continue running
You may need to change .repaint to .show