Private Sub Text1_GotFocus() Text1.Text = "Test" Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub