Вывести результат парсинга

        Dim Str As String = "<![CDATA[Бла бла бла бла]]>      <![CDATA[ash ash ash ash]]>"
        Dim Group1 As String() = (From M As Match In Regex.Matches(Str, "\[CDATA\[(.*?)\]") Select M.Groups(1).Value).ToArray()
        MsgBox(String.Join(vbCrLf, Group1.ToArray))

        Dim Str As String = "<![CDATA[Бла бла бла бла]]>      <![CDATA[ash ash ash ash]]>"
        Dim allIp As MatchCollection = Regex.Matches(Str, "\[CDATA\[(.*?)\]")
        For Each S As Match In allIp
            MsgBox(S.Groups(1).Value)
        Next

Dim Str As String = Mass(i)
        Dim allIp As MatchCollection = Regex.Matches(Str, "\[CDATA\[(.*?)\]")
        For Each S As Match In allIp
            MsgBox(S.Groups(1).Value)
        Next

        Dim Str As String = String.Join(vbCrLf, Mass)
        Dim Group1 As String() = (From M As Match In Regex.Matches(Str, "\[CDATA\[(.*?)\]") Select M.Groups(1).Value).ToArray()
        ListBox1.Items.AddRange(Group1.ToArray)

ListBox1.Items.Add(S.Groups(1).Value)

For l = 0 To ListBox1.Items.Count - 1 Step 1

For i = 0 To (XmlNodeList.Count - 1) Step 1
            MassLinkSerial(i) = XmlNodeListLink.Item(i).InnerXml
            MassNameSerial(i) = XmlNodeList.Item(i).InnerXml
        Next
        For l = 0 To ListBox1.Items.Count - 1 Step 1
            For m = 0 To MassLinkSerial.Length - 1 Step 1
                If ListBox1.Item(i) <> MassLinkSerial(m) Then
                    Dim msg As String = ListBox2.Items(l)
                    SendMsg(msg, Form2.TextBox1.Text, Form2.TextBox2.Text, Form2.TextBox3.Text, Form2.TextBox5.Text)
                    Dim Str As String = MassNameSerial(m)
                    Dim allIp As MatchCollection = Regex.Matches(Str, "\[CDATA\[(.*?)\]")
                    For Each S As Match In allIp
                        ListBox1.Items(l) = S.Groups(1).Value
                    Next
                End If
            Next
        Next

Step 1

If ListBox1.Item(i) <> MassLinkSerial(m) Then