> Msg("IDとPWが間違っています")
> と入力したところ、これが3回でました。
> どうしれば直るでしょうか？ 
(「どう知れば」というのは、どこかの方言なのでしょうか。「どうすれば」ではなく?)

直すにはまず、「DocumentCompleted イベントは複数回発生する可能性がある」という
前提に立ってコーディングすることが大事です。
なお、どういうときに複数回発生するのかは、以前回答しています。
http://rucio.cloudapp.net/ThreadDetail.aspx?ThreadId=11002#CommentId24396

確認できるよう、フレームセットを利用したサイトを具体例として挙げておきます。

WebBrowser1.Navigate("http://hanatyan.sakura.ne.jp/")

' 上記を実行すると、DocumentCompleted イベントが 3 回発生します。 

' 1 回目のイベントは  http://hanatyan.sakura.ne.jp/menu.htm の読み込み完了を、 

' 2 回目のイベントは  http://hanatyan.sakura.ne.jp/top.htm の読み込み完了を、 

' 3 回目のイベントは  http://hanatyan.sakura.ne.jp/ の読み込み完了を通知しています。 

また、インラインフレームを用いたサイトなども、複数回のイベント通知を引き起こします。

WebBrowser1.Navigate("http://bbs.wankuma.com/")

ですからそれぞれの DocumentCompleted イベント内で、引数 e の内容を調べ、
どの URL に対する通知なのかを確認し、不要なものを If 文で無視するなどの
対処をとってみてください。今のままだと、それらすべてが Else 句で処理されてしまうはずです。

もしも同じ URL で異なる内容を返すような場合には、
Document の内容をみて判断することも必要になるかも知れません。


> InnerText 'InnerText' は宣言されていません。アクセスできない保護レベルになっています。 
> って出ますねｗ
それは最初のコードの
　If (Strings.InStr(Me.WebBrowser1.Document.Body.InnerText, ChrW(12450) & ChrW(12513) …
の行で発生しているという事でしょうか。それとも別の作業中に発生したものでしょうか。
また、エラーが発生したときに参照していた Web サイトは?