Try this code. It will run automatically when you exit the content control
Code:
Private Sub Document_ContentControlOnExit(ByVal aCC As ContentControl, Cancel As Boolean)
If aCC.Type = wdContentControlCheckBox Then
aCC.Range.Paragraphs(1).CollapsedState = Not aCC.Checked
End If
End Sub