Question:
How do you automatically select all text in a TextBox when it receives the focus?
Answer:
For a text box named Text1 you can use the following code:
Private Sub Text1_GotFocus() With Text1 .SelStart = 0 .SelLength = Len(Text1.Text) End WithEnd Sub