テキストボックスにマクロでメッセージ　424

EXCELにてコントロールツールボックスで貼り付けたテキストボックスにマクロで処理経過やエラーメッセージをログ風に出力したいのですが、424 オブジェクトが必要です、というエラーになってしまいます。 テキストボックスのオブジェクト名はTextBox1です。 マクロ内容はメッセージを出力する部分をサブルーチン化し、呼び出す仕様で作成しました。 Public Sub OUTMessage(InMsg As String) Dim OutMsg As String OutMsg = Format(Now, "HH:MM:SS") + " : " + InMsg + Chr(13) + Chr(10) TextBox1.Text = TextBox1.Text + OutMsg　　・・・(1) TextBox1.Activate End Sub 上記の・・・(1)の部分でエラーとなります。 何度も確認しましたが、オブジェクト名は記述間違いないです。 どなたか同じ様な内容を試された方、アドバイスをお願いします。 数時間を費やしましたが、このエラーを回避できません。