WebBrowserでエラーが出現

おっと  2003-10-23 05:33:02  No: 109354  IP: [192.*.*.*]

初めまして。
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 05:36:05  No: 109355  IP: [192.*.*.*]

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

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

編集 削除