チョコマフィン復活希望

If InStr(1, objIE.document.body.innertext, "ホニャ") <>0 then

'ホニャがあったなら何かする

Endif


はまります。

objIE.document.body.innertextが""でも、0を返すので、"ホニャ"があることになる。


On Error Resume Next

を併用している場合は、さらに怪しい。

"実行時エラーが発生してもプログラムを中断せず、エラーが発生したステートメントの次のステートメントから実行を継続します。オブジェクトを操作する場合は、On Error GoTo ステートメントではなく、このステートメントを使ってください。"(ヘルプより)

次のステートメントなら、実行中の命令が何を返しているのか分からん。

'一回変数で受ける。
strSTR=""　
strSTR=objIE.document.body.innertext

'""でないこともチェック

If strSTR<>"" and InStr(1, strSTR, "ホニャ") <> 0 then

'ホニャがあったなら何かする

Endif

が正解でしょう。



条件が成り立ってないときも抜ける場合がって悩んでいましたが、
多分これが原因です。


書き直して見よう。


あー、メンドクサイ。