エクセルマクロのイベントプロシージャについて

質問

こにんちは。仕事で使う表をもっと便利にするため、独学でマクロを勉強、作成している者です。
　さて、今回、ユーザーフォーム上に5つのテキストボックスを配置して(Textbox1～Textbox5)、Textbox1に入力した内容によってカーソルの移動先を変えるマクロを作成したいのですが、うまくいきません。
　私の作成したコードは以下の通りです(今回、質問するにあたって、かなり省略しています)。

Private Sub TextBox1_AfterUpdate()
Select Case TextBox1.Value
Case 1
TextBox1.SetFocus
Case 2
TextBox2.SetFocus
Case 3
TextBox3.SetFocus
Case 4
TextBox4.SetFocus
Case Is >= 5
TextBox5.SetFocus
End Select
End Sub

　そこで、いろいろ試したり調べたりしたのですが、どうもイベントプロシージャそのものに対する基本的な認識ができていない気がしてきました。
　と言いますのも、上記プログラムを走らせると、1、2を入力した際はタブオーダーに従い？Textbox2へカーソルが移動しますが、3以上の数値を入力すると、4でも5でもTextbox3へ移動します。
　何をやってもタブオーダー通りにしか移動しないのならともかく、なぜこのような変な動きになるのか、分かりやすく説明していただくことは可能でしょうか。
　また、もちろんどうすれば目的通り動かせるのかも教えていただきたく思います。
　もちろん一番の目的はそれなのですが、今後の理解のため、イベントのタイミング等について教えていただければ幸いです。
　なお、各イベントの意味については、下記のページを見て理解はできたつもりなのですが・・・。
　http://home.att.ne.jp/zeta/gen/excel/c04p30.htm

回答No.4

cj_mover

こんにちは

状況は再現できました。
10キーからIMEオフ状態で数字を１桁だけ入力したらイベント発生、
という条件なら（実際に(Textbox1～Textbox5)なら）、
_Change() イベントが使えるかもしれません。
よく解りませんが、以下のような感じではどうでしょうか。
一応、TextBox1への移動は意味ないので、2～5にフォーカスが移動します。
一応エラー処理も少しだけ加えました。

' //////
' 以下をコピペ。必ず！！、UserFormモジュールの先頭行に。
' Sub TextBox1_Changeが重複する場合は、エラーになります。

Const TextBoxesMin = 1
Const TextBoxesMax = 5

Private Sub TextBox1_Change()
PSetF TextBox1.Value
End Sub

Sub PSetF(v)
If Val(v) < 2 Then Exit Sub
v = CInt(v)
If v > TextBoxesMax Then v = TextBoxesMax
Me.Controls("TextBox" & v).SetFocus
End Sub

' Excel2000、2003で動作確認済み
' //////

十分にニーズを把握できないので、説明はご容赦ください。

TextBox1に入力する数字が２桁以上だと、
まったく違う話になりますので、
別途質問を立て直した方いいと思います。

条件に合わないようでしたら、すみません

お礼

ご回答いただきありがとうございました。
試してみたところ、確かに目的の動きをするのが確認できました。
下の方のお礼にも書きましたが、なんとかその動きを理解できるよう、この後、教えていただいたコードをじっくり解読させていただきます。
ちなみに蛇足ですが、状況を再現できたというのが、ちょっとうれしかったです(笑)。