Set the selection in a TextBox
Private Sub TextBox1_Enter() TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1.Text) End Sub