You're letting the right arrow through. You have to kill it:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal
Shift As Integer)
Select Case KeyCode
Case vbKeyRight
With TextBox1
.SelStart = 3
.SelLength = 2
End With
KeyCode = 0 ''<<<<<
End Select
End Sub


--
Jim
"jase" wrote in message
ups.com...
| If you create a Textbox TextBox1 and give it text of "abcdefg" in the
| properties window then why doesn't the second event procedure below
| select "de" when you press the right arrow on the keyboard when the
| textbos has got the focus ??!
|
| Any help greatly appreciated
| Jason.
|
|
| Private Sub TextBox1_GotFocus()
| TextBox1.SelStart = 0
| End Sub
|
| Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
| ByVal Shift As Integer)
| Select Case KeyCode
| Case vbKeyRight
| With TextBox1
| .SelStart = 3
| .SelLength = 2
| End With
| Case Else
| End Select
| End Sub
|