Public 
sub
 SetSelected()
    Screen.ActiveControl.SelStart = 0
    Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text)
    'put in every text1.gotfocus => SetSelected
    
End Sub