HSPTV!掲示板

以下のスプリクトを作ったのですが、WindowsVistaでは問題なく動くのですが、
Windows10ではランタイムエラーになってしまいます。どのように直せばよいでしょうか。

screen 0,350,210
notesel a
noteload "key.txt"
lis=a
pos 10,10 : objsize 200,100
listbox lis0,100,lis;オブジェクトID:0
pos 230,10 ;: objsize 96,20
input kazu,96,20,2 ;オブジェクトID:1
pos 230,40 : objsize 96,40
button gosub "IE起動",*startIE;オブジェクトID:2
pos 230,90 : objsize 96,40
button gosub "検索",*search;オブジェクトID:3

*startIE
;***** 検索キーを指定して自動検索*****

;▼IE(InternetExplorer.Application)オブジェクトを作成
newcom objIE, "InternetExplorer.Application"

objIE("Silent") = 1
objIE("Visible") = 1
onexit *owari
stop

*search
;▼開く
sURL = "http://websearch.rakuten.co.jp/Web?qt=hsp&col=OW&svx=101210&ref=top"
objIE->"Navigate" sURL
gosub *busywait

if kazu=0 : r = noteinfo(0) : else : r=kazu
repeat r,0
noteget b,cnt
o = objIE("Document")
o = o("SearchForm",0)
o = o("qt")
o("value") = b

o=objIE("Document")
o = o("SearchForm",0)
o -> "submit"
gosub *busywait
loop
return

*busywait
;▼ページの読み込みが終了するまで待つ
title "ページを読み込み中です。"
repeat
wait 10
if objIE("Busy")==0 : break
loop
objDoc=objIE("Document")
repeat
wait 10
if (objdoc("readyState") == "complete") : break
loop
title "ページが表示されました。"
return

*owari
delcom objIE
end

gosubで指定ラベルへ飛んでいるのにReturnで復帰していないのでエラーが出ているんだと思います。

 button gosub "IE起動",*startIE

返事が遅れてすいません。
可憐さんの言うとおりにやってみたところ、私の２台あるパソコンのうち、
片方は問題なく動いてくれたのですが、もう片方のWindows7からWindows10にアップグレードした
方のパソコンはなぜか数回検索を繰り返した後、以下の行で

if (objdoc("readyState") == "complete") : break

error37の「変数型の変換に失敗しました。」というエラーで止まってしまいます。
どうすれば治るでしょうか。よろしくお願いします。

59行目と60行目の間に

delcom objIE

を入れてみて下さい。
出先なので試してませんが、解決するかもしれません 解決しないかもしれません

ご回答ありがとうございます。
５９行目と６０行目というと

title "ページが表示されました。"
return
と
*owari
delcom objIE

の間だと思うのですけど合っていますか。同じエラーが出ます。
どの位置に置けばよいでしょうか。

ご返答ありがとうございます。