clickメソッドが動かない。

クリックメソッドが動かないのです。
以前に、イベントをブラウザから、OSへ制御を切り替える事「DoEvent」で、動作をクリアしましたがそれ以降で問題なかったのですが、クリックイベントが発生が発生しません。

これまた不思議なのですが、このような時は必ず、DoEventや、MsgBox等をForの前後に、または共に入れると入れないとでまったく違う動きをします。酷い時は再度別ブラウザが起動して、ログイン動作から画面操作が始まったりまします。

クリックのメソッドが無視されてプログラム自体は終了しているかのようです。

Sub デリヘルタウン()

Dim IE As InternetExplorer

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://www.XXXX.jp/a/auth"
Do While IE.Busy Or IE.ReadyState < READYSTATE_COMPLETE
    DoEvents
Loop

IE.document.all("login_id").Value = Range("C5")
IE.document.all("password").Value = Range("C6")
IE.document.forms(0).submit

Application.Wait (Now + TimeValue("00:00:05"))

Set objShell = CreateObject("Shell.Application")
Set ie2 = objShell.Windows(objShell.Windows.Count - 1)

Dim objA As Object
For Each objA In ie2.document.all.tags("A")

DoEvents
If objA.innerText = "何かのテキスト" Then
        objA.Click
        Exit For
    End If
Next

Set IE = Nothing

Application.Wait (Now + TimeValue("00:00:05"))
 
Set ie2 = objShell.Windows(objShell.Windows.Count - 1)
ie2.Visible = True

For Each objA In ie2.document.all.tags("A")

If objA.innerText = "何かのテキスト" Then
        objA.Click
        Exit For
    End If
Next

Application.Wait (Now + TimeValue("00:00:15"))

Set ie2 = objShell.Windows(objShell.Windows.Count - 1)
ie2.Visible = True

Set input_Radio = ie2.document.getElementsByName("type")(0)
input_Radio.Click

Set input_Text = ie2.document.getElementsByTagName("input")(6)

input_Text.Value = "なんだかんだ"

Set input_content = ie2.document.getElementsByTagName("textarea")(0)

input_content.Value = Range("B42")

Set ie2 = objShell.Windows(objShell.Windows.Count - 1)
ie2.Visible = True
ie2.document.forms(1).submit
Application.Wait (Now + TimeValue("00:00:10"))

For Each objA In ie2.document.all.tags("A")
DoEvents

If objA.innerText = "ログアウト" Then