While IE.Busy
End While

Dim doc As mshtml.HTMLDocument = CType(IE.Document, mshtml.HTMLDocument)

CType(doc.all.item("login", 0), mshtml.HTMLInputTextElement).value = "*****"
CType(doc.all.item("passwd", 0), mshtml.HTMLInputTextElement).value = "*****"
CType(doc.forms.item("login_form", 0), mshtml.HTMLFormElement).submit()

参考にしたサイトではWhileでこのDim〜CTypeを挟んでいたのですが
よく考えるとこのWhileはIE.Busyから抜けるまでを待機で使ってるんではないのかと思い

上のようにすると
Dim doc As mshtml.HTMLDocument = CType(IE.Document, mshtml.HTMLDocument)
ここは通過し
CType(doc.all.item("login", 0), mshtml.HTMLInputTextElement).value = "*****"
ここでエラーが出るようになりました・・・・

エラー内容
NullReferenceException はハンドルされませんでした。
オブジェクト参照がオブジェクト インスタンスに設定されていません。

>>338さんが教えてくれたAddHandlerについては調べているのですが
難しいですね・・・；；