Help with adding data elements in string variable using VB.NET

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
         Dim xdoc As XDocument = XDocument.Load(Application.StartupPath + "\AOP5.xml")
         Dim results = (From n In xdoc.Root.Descendants("AOP5")
                        Select n).ToList()
         Dim resultsa = (From n In xdoc.Root.Descendants("Effect")
                     Select n).Count()

         If resultsa = 0 Then
         results.ForEach(Sub(n) n.Add(<Effect></Effect>))
         End If

         xdoc.Save(Application.StartupPath + "\AOP5.xml")

Select allOpen in new window