"System.InvalidCastException" в Microsoft.VisualBasic.dll при парсинге

Dim Mass(PARS.Count(ALL, "<item>", "</item>") - 1) As String
        For i = 0 To Mass.Length - 1 Step 1
            Mass(i) = PARS.GetPars(ALL, "<item>", "</item>", i)
        Next
        Dim Kolichestvo As Integer = ListBox1.Items.Count
        For l = 0 To Kolichestvo - 1 Step 1
            For m = 0 To Mass.Length - 1 Step 1
                If Regex.Match(Mass(m), "/\[CDATA\[(.*?)\]/") = ListBox1.Items(0) Then
                    SendMsg(ListBox1.Items(l) + " - NEW", Form2.TextBox1.Text, Form2.TextBox2.Text, Form2.TextBox3.Text, Form2.TextBox5.Text)
                End If
            Next
        Next

                If Regex.Match(Mass(m), "/\[CDATA\[(.*?)\]/") = ListBox1.Items(0) Then
                    SendMsg(ListBox1.Items(l) + " - NEW", Form2.TextBox1.Text, Form2.TextBox2.Text, Form2.TextBox3.Text, Form2.TextBox5.Text)
                End If

      For Each m As Match In Regex.Matches(input, pattern)
         Console.WriteLine("'{0}' found at index {1}.", 
                           m.Value, m.Index)
      Next

Dim mtch As Match = Regex.Match(Mass(m), "/\[CDATA\[(.*?)\]/")
If mtch.Success And mtch.Groups(1).Value = ListBox1.Items(0) Then