Mark All Characters In TextBox

'Add 1 TextBox to your form (named Text1)
'When the user will press on the TextBox, all the characters in the TextBox will be marked.
'Insert the following code to your form:

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