In vielen Anwendungen ist es üblich, dass der gesamte Text markiert wird, sobald es ausgewählt wird und es den Eingabefokus erhält. Vier Zeilen Code im GotFocus- Ereignis des entsprechenden Textfeldes genügen für dieses "Feature":

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