Pues tambien tienes razon, para que poner dos lineas de codigo si con una me hace lo mismo. Pero me sigue saliendo el mismo error "Indice invalido".
Código:
If Cadena = TreeView1.Items[J].Text Then
Me señala exactamente esta sentencia, y no se que tiene esa sentencia de mal, si me lo pudieras aclarar te lo agradeceria