リストインデックスを変更しないで、値だけ見ていけばいいのではないでしょうか?こんな感じでできないですか?For i = 0 To ListBox.ListCount - 1 If ListBox.List(i) = Str Then Exit For '見つけたらFor文を出るNext