Private Sub Command1_Click()Text1.SetFocus
Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)
End Sub