お世話になっております。

フォーム上のコマンドボタン押下後、コマンドを発生させ、
なおかつ、タブを移動させるにはどうしたらいいでしょうか？
たとえば、

Private Sub Command1_Click()

	Text1.Text = Date

End Sub

という、ボタンを押したらテキストボックスに日付が入力されるという
単純なプログラムですが、ボタンを押したら日付が表示され、なおかつ
Text1にタブ移動させるにはどう処理を加えればいいのでしょうか?

Private Sub Command1_KeyPress(KeyAscii As Integer)

        If KeyAscii = vbKeyReturn Then

            KeyAscii = 0

            SendKeys "{TAB}"

        End If

End Sub

を付け加えましたが、うまくいきません。

よろしくお願いいたします。