VB.NET 4.7：尝试从CheckedListBox将选中的项目添加到XML元素中，但是得到了意外的输出

Question

您好，我正在尝试将选中的项目添加到XML元素中，从CheckedListBox到XDocument。我正在尝试根据此问题中的C＃代码创建它：
（C# - creating a string-array of checked items in checked-list-box）
变量te和cr是以下有问题的代码中的XElement：

Dim b As Object() = CertifiedClasses.CheckedItems.OfType(Of Object).ToArray()

For c As Integer = 0 To b.Count() - 1
    Try
        te.Add(cr)
        cr.Add(CertifiedClasses.CheckedItems.Item(c).ToString())
    Catch ex As IndexOutOfRangeException
        MsgBox("Index out of range")
    End Try
Next

我遇到的问题是，当我使用此For循环时，我希望输出在自己的math标记中包含三个主题science，gym和<mandatory-class> ，但我得到以下信息：

<teacher xmlns="">
  <firstname>joe</firstname>
  <lastname>schmo</lastname>
  <certification>mathsciencegym</certification>
  <certification>math</certification>
  <certification>mathscience</certification>
</teacher>

我尝试将te.Add(cr)移到Dim b之后和For c之前的空白处，这最终只会带有一个标签<certification>mathsciencegym</certification>。

您能找到我遇到的问题的解决方案吗？