ユーザーフォームのカーソル移動

Excelのマクロでカーソル移動の事で教えて下さい。
フォームを表示するとTextBox1にカーソルが表示されます。
TextBox1で入力の判断しNG場合
カーソルを移動せずTextBox1に表示したいのですが
CommandButton1に移動してしまいます。
(SetFocusでTextBox1を指定してNG）

【フォームの内容です】
TextBox1が１個　CommandButtonが２個存在します。
TextBox1のTabIndexは 0
CommandButton1のTabIndexは 1
CommandButton2のTabIndexは 2

【プログラムです】
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = "" Then
MsgBox "NG"
　　　　TextBox1.SetFocus
End If
End Sub
宜しくお願い致します。

No.1 ベストアンサー 回答者： KenKen_SP 回答日時： 2008/04/02 11:43

こんにちは。

Exit イベントをキャンセルするのではダメ？

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
　　If TextBox1.Text = "" Then
　　　　MsgBox "NG"
　　　　Cancel = True
　　End If
End Sub

この回答へのお礼

KenKen_SPさん
早急に回答して頂き有難うございます。
KenKen_SPさんの回答で解決できました。
お礼が遅れて申し訳ございません。
これからも宜しくお願い致します。

お礼日時：2008/05/07 13:44