少し前に解決した投稿に対し別の問題が発生したのでしょうか？


提示した例外が関係しそうな箇所は
> Dim Data() = Split(Items(0), "\\") '名前の方の値を\\句切り


> If Data(i).Length <> Nothing Then


> a = a + "データ=" + Data(i)


> Writer.WriteLine("ユーザ情報=" & a & ",説明=" & Items(1) & "")


この辺ですね。
配列の大きさを
チェックして処理する必要があります。