WebBrowserでエラーが出現

おっと 2003-10-23 14:33:02 No: 109354

初めまして。
WebBrowser関連のプログラムを制作中に不可解なエラーに遭遇しました。

コンポーネントに「MS Internet Control」と「MS Rich TextBox」を使用可能にして
フォームにリッチテキストとボタン、WebBrowserを配置。

その後下記のプログラムを実行。

Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.yahoo.co.jp/"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
RichTextBox1.Text = WebBrowser1.Document.body.innerHTML
End Sub

これは問題なく動きます。
ですがこのプロジェクトを保存後にVB終了して再度実行すると
「実行時エラー'91' オブジェクト変数またはWithブロック変数が設定されていません。」
とのこと。

http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200309/03090031.txt
上記を参照にした際に似たような現象が起きております。
ここでの9月9日〜25日のプログラムは正常に動作しております。
よければアドバイスを。

WinME VB6SP5

おっと 2003-10-23 14:36:05 No: 109355

ちなみにエラー時は
RichTextBox1.Text = WebBrowser1.Document.body.innerHTML
がエラーとなっております。

最初に宣言か何かしないといけないのでしょうか？
（でもそれならなぜ一度目は動くのか）