エクセルマクロのテキストボックスの質問です。テキストボックス内の文字を

エクセルマクロのテキストボックスの質問です。テキストボックス内の文字を２４文字１３行で設定します。文字を打つことにより残り行数をカウントできるようなマクロを作成したいと思い次のマクロを設定しましたがエラーがでます。対処方法わかりますか。
ＵｓｅｒＦｏｒｍ１のマクロは次の通りです。

Private Sub CommandButton1_Click()
Me.Hide
End Sub
Private Sub TextBox1_Change()
ato = 13 - TextBox1.ｌｉｎｅcounut
Label1.ForeColor = 0
If ato <= 10 Then Label1.ForeColor = RGB(255, 0, 0)
Label1.Caption = "あと " & ato & " 文字入力できます。"
End Sub
すると１回目は入力可能ですが，次のセルに移動するとこのようなメッセージが出てしまいます。
linecountのプロパティーを取得できません。このコントロールはフォーカスを持つ必要があります。ｓｅｔfoucusメソッドによってこのプロパティーまたｈメソッドが参照される前にフォーカスに移動しました

No.1 ベストアンサー 回答者： takana_ 回答日時： 2010/11/03 23:39

ato = 13 - TextBox1.LineCount

↓
TextBox1.SetFocus
ato = 13 - TextBox1.LineCount

にしたらどうでしょうか？