Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim oRng As Word.Range
  Set oRng = ContentControl.Range.Paragraphs(1).Next.Range
  Select Case ContentControl.Title
    Case "A" 'Change to match your titles
      If ContentControl.Checked Then
        oRng.Text = "XXXX "
        oRng.Collapse wdCollapseEnd
        oRng.Select
      End If
    Case "B" 'Change to match your titles
      If ContentControl.Checked Then
        oRng.Text = "YYYY "
        oRng.Collapse wdCollapseEnd
        oRng.Select
      End If
    Case "C" 'Change to match your titles
      If ContentControl.Checked Then
        oRng.Text = "ZZZZ "
        oRng.Collapse wdCollapseEnd
        oRng.Select
      End If
  End Select
lbl_Exit:
  Exit Sub
End Sub