Checkbox - Need Help Modifying Macro

[dpgirl]

I found this macro on the internet that allows me to use interactive checkboxes in my Word document without having to protect the document. The only problem is that when I double-click on an unchecked box, it turns to a checked box but I can't double-click on it again to turn back to an unchecked box. Could someone possibly help me modify the macro(s) to allow for this? Can I use an If statement?

Sub CheckIt()
ActiveDocument.AttachedTemplate.AutoTextEntries("Checked Box").Insert Where:=Selection.Range
End Sub

Sub UncheckIt()
ActiveDocument.AttachedTemplate.AutoTextEntries("Unchecked Box").Insert Where:=Selection.Range
End Sub