This is to select a text forword
Text2.SetFocus
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
But this way (select a text back word):
Text1.SetFocus
Text1.SelStart = Len(Text1.Text)
Text1.SelLength = 0
it doesn't work !!