When debugging code, use Debug.Print or press F8 to execute one line at a time. I suspect that you will find that you are iterating one too many list items. Subtract one as I demonstrated.
Change your For loop too:
Using snb's method, you can Split() the c00 to create a string array. You can then use array methods to get the items.For J = 0 To lstissue.ListCount - 1