Microsoft Visual Basic (Checkbox relationships)

I have a problem :)

I am working in Microsoft Word 2013 right now. I made four checkboxes: "A", "B" , "C" and "D". My wish is that there is a relationship between the checkboxes. So if I check "A" then I want that "B" and "C" are also automatically checked. And if I check "B" I want that "C" is also automatically checked. When I check "C" then I want that just "C" is checked. And if I check "D" then only "D" needs to be checked.

I already found the next code:

Sub SelectAll_Click()  
Dim CB As CheckBox  
For Each CB In ActiveSheet.CheckBoxes  
  If CB.Name <> ActiveSheet.CheckBoxes("Check Box 1").Name Then  
    CB.Value = ActiveSheet.CheckBoxes("Check Box 1").Value  
  End If  
Next CB  
End Sub  

Sub Mixed_State()  
Dim CB As CheckBox  
For Each CB In ActiveSheet.CheckBoxes  
  If CB.Name <> ActiveSheet.CheckBoxes("Check Box 1").Name And CB.Value <> ActiveSheet.CheckBoxes("Check Box 1").Value And ActiveSheet.CheckBoxes("Check Box 1").Value <> 2 Then  
    ActiveSheet.CheckBoxes("Check Box 1").Value = 2  
Exit For  
   Else  
     ActiveSheet.CheckBoxes("Check Box 1").Value = CB.Value  
  End If  
Next CB  
End Sub  

This works for me in Excel, but not in Word (I get an error). But the main issue is that by this code all of the checkboxes are selected. That's not exactly what I want.

I hope it is clear what I'm asking for and I hope you can help me out.

Thanks!

Kind regards.