Change the line

If iexit = vbYes Then
to

If iexit <> vbYes Then Exit Sub
and remove the End If after the Next ctl