problem with textbox

[ANKUSHRS1]

I have written below code to go dircectly to specific textbox. but problem is when go to that specific textbox cursor goes end of textbox and "space" auto updated. i cant figure it out...pls help.

Private Sub qty19_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyTab Then
qty20.SetFocus
End If
End Sub

 

[Chihiro]

Modify your code like below.

Private Sub qty19_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyTab Then
KeyCode = 0
qty20.SetFocus
End If
End Sub