テストケースを正しく実行するのに問題があります。
問題は以下のコードにあります。正確には最初のifステートメントです。QTPは、オブジェクトが必要であると文句を言います
For j=Lbound(options) to Ubound(options)
If options(j).Contains(choice) Then
MsgBox("Found " & FindThisString & " at index " & _
options.IndexOf(choice))
Else
MsgBox "String not found!"
End If
Next
配列を確認すると、正しく入力されており、「j」も正しい文字列であることがわかります。この問題についての助けをいただければ幸いです。