>>321

Private Sub Text1_GotFocus()

　　With Me.Text1
　　　　.SelStart = 0
　　　　.SelLength = Len(.Text)
　　End With

End Sub