this may do ur wish, add a cmd butn and textbox
Code:
Private Sub Command1_Click()
Text1.SetFocus
Text1.SelStart = 10 'starting position
SendKeys "+{LEFT 5}" 'shift + left arrow 5 times
End Sub