1つ提案があります。

If WebBrowser1.Document.Body.InnerText Like "*アメーバIDもしくはパスワードを確認して下さい*" Then

この"*アメーバIDもしくはパスワードを確認して下さい*"を　URLにして実行することは可能でしょうか？

可能の場合はURL＝https://pigg.ameba.jp/core/login　これを例として教えてください。