Private Sub Document_ContentControlBeforeStoreUpdate(ByVal ContentControl As ContentControl, Content As String)
Dim oNode As CustomXMLNode
Dim lngIndex As Long
  If ContentControl.Tag = "Master" Then
    Select Case Content
      Case 1
         For lngIndex = 1 To 5
           Set oNode = ContentControl.XMLMapping.CustomXMLPart.SelectSingleNode(Replace(ContentControl.XMLMapping.XPath, "Master", "Slave" & lngIndex))
           Select Case lngIndex
             Case 1: oNode.Text = "One, two buckle my shoe"
             Case 2: oNode.Text = "three, four shut the door"
             Case 3: oNode.Text = "five, six pick up sticks"
             Case 4: oNode.Text = "seven, eight close the gate"
             Case 5:  oNode.Text = "nine, ten the big fat hen."
           End Select
        Next lngIndex
      Case 2
         For lngIndex = 1 To 5
           Set oNode = ContentControl.XMLMapping.CustomXMLPart.SelectSingleNode(Replace(ContentControl.XMLMapping.XPath, "Master", "Slave" & lngIndex))
           Select Case lngIndex
             Case 1: oNode.Text = "one little, two little"
             Case 2: oNode.Text = "three little, four little"
             Case 3: oNode.Text = "five little, six little"
             Case 4: oNode.Text = "seven little, eight little"
             Case 5:  oNode.Text = "nine little, ten little (you pick) boys."
           End Select
        Next lngIndex
      Case 3
         For lngIndex = 1 To 5
           Set oNode = ContentControl.XMLMapping.CustomXMLPart.SelectSingleNode(Replace(ContentControl.XMLMapping.XPath, "Master", "Slave" & lngIndex))
           Select Case lngIndex
             Case 1: oNode.Text = "AAAAAAAAAAA"
             Case 2: oNode.Text = "BBBBBBBBBBB"
             Case 3: oNode.Text = "CCCCCCCCCCC"
             Case 4: oNode.Text = "DDDDDDDDDDD"
             Case 5:  oNode.Text = "EEEEEEEEEE"
           End Select
        Next lngIndex
      Case Else
        For lngIndex = 1 To 5
          Set oNode = ContentControl.XMLMapping.CustomXMLPart.SelectSingleNode(Replace(ContentControl.XMLMapping.XPath, "Master", "Slave" & lngIndex))
          oNode.Text = ChrW(8203)
        Next lngIndex
      End Select
  End If
lbl_Exit:
  Exit Sub
End Sub