VBでMT(Movable type)に自動でログイン

MTに自動でログインするためのプログラムです。

MTはクッキーが効くのでその有効範囲内なら、ログインを自動的にしますが
しかし

クッキーが切れていたときは自分でユーザー名とパスワードを入れてログインします

それを自動でしてくれる部分です。

        'IEを開く Internet Explorerを起動します
        Dim objIE as Object
        objIE = CreateObject("InternetExplorer.application")
        objIE.visible = True

        'URLにMTのURLを入れます。
        Dim URL = "http://MyMT.com/mt/mt.cgi"

        '指定したＭＴのＵＲＬにアクセスします
        objIE.Navigate(URL)

        Do While objIE.Busy
            DoEvents()
        Loop

        Do While (objIE.document.readyState <> "complete")
            DoEvents()
        Loop

        Do While objIE.readyState <> "4"
            DoEvents()
        Loop

        Sleep(1000)

        'objDocument にIEの開いたページを指定します
        objDocument = objIE.Document
        HTML = objDocument.documentelement.innertext

        'もし、Movable Typeからログアウトしました　という文字があったら、ログインするためにパスワードと、ユーザー名を入力して、チェックボックスも恩にします
        If InStr(HTML, "Movable Typeからログアウトしました") > 0 Or InStr(HTML, "サインイン") Then
            objForm = objDocument.Forms(0)
            objForm.UserName.Value = "MTUserName"
            objForm.Password.Value = "MTPassWord"

            objForm = objDocument.Forms(0).elements("remember")
            objForm.Checked = True

            objForm = objDocument.Forms(0)
            objForm.submit()

            MT.WaitIE(objIE)
        End If