The content control properties are correct, but your code is written for legacy checkboxes. You need to replace your Click events with just the one routine below:
Code:
Private Sub Document_ContentControlOnExit(ByVal cc As ContentControl, Cancel As Boolean)
DoMe cc.tag, cc.Checked
End Sub