用意した文章をgooブログにワンクリックで投稿できるマクロを作成しています。

しかし途中でエラーが起きて困っています。
タイトル入力、本文入力が失敗します。
良い解決策は無いでしょうか。


'----------------------------ブログgoo投稿
Sub blog11goo()
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "https://login.mail.goo.ne.jp/id/authn/LoginStart"
IE_Complete IE
IE.Document.all.uname.Value = "---メールアドレス---"
IE.Document.all.Pass.Value = "---パスワード---"
For Each obj In IE.Document.getElementsByTagName("input")
obj.Click
Next
IE_Complete IE
Sleep 2000
IE.Navigate "http://blog.goo.ne.jp/admin/newentry/"
IE_Complete IE
Sleep 4000
Set ti = IE.Document.getElementsByName("entry/entry_title")(0)
Set ho = IE.Document.getElementsByName("entry/entry_text")(0)
ti.Value = "タイトルtest" 　'---タイトル入力---
ho.Value = "本文test" 　'---本文入力 ---
IE_Complete IE
End Sub



Public Sub IE_Complete(ByVal IE As Object) 'IE読み込みが完了するまで待つ
Do While IE.Busy = True
DoEvents
Loop
Do While IE.Document.ReadyState <> "complete"
DoEvents
Loop
End Sub