Selecting Text Automatically

what is the best way to automatically select (hightlight) text in a text box when the focus is set to that box?

VB Code:

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

:)