[OSのVer]：Windows　　　　[VBのVer]：VB.NET　　

初めて投稿します。

ディレクトリを入力してもらって参照するプログラムを作っているのですが、
"\"がいくつ並んでいても参照されてしまいます。（例　E:\\\sample\）
それをエラーにするために"\"の後の文字が"\"ならエラーにするという
処理を書いたのですが、うまくいきません。教えてください。お願いします。

＜ソース＞
For index = 0 To finum - 1
            Dim intplace As Integer
            Dim strnext As String
            intplace = InStr(strOrgOut, "\") + 1
            strnext = GetChar(strOrgOut, intplace + 1)
            If strnext = "\" Then
                'エラー処理をする
                Foforbid(TxtOrgOut, "エラーです。")
                Exit Sub
            End If
            index = intplace + 1
        Next

intplaceに"\"の位置を格納
strnextで"\"の次の文字を取ってきて比較、というものです。
よろしくお願いします。

IndexOfメソッドで"\\"の位置を取得し、-1の場合(つまり存在しない)はエラーとする
でだめか？
逆に、エラーにするのではなく、
Replaceメソッドで"\\"を"\"に"\\"がなくなるまで繰り返し変換した
ものをディレクトリ参照処理に
まわすのでもいいかと。

ソンソン様、お返事ありがとうございます。
その方法でやってみたいと思います。
ありがとうございました。