Selecionar texto em TextBox

O código abaixo faz com que o conteúdo do controle TextBox seja selecionado automaticamente ao receber o foco.

      Private Sub Text1_GotFocus()

        Call SelectMe(Me.ActiveControl)

      End Sub

      Private Sub Text2_GotFocus()

        Call SelectMe(Me.ActiveControl)

      End Sub

      Private Sub SelectMe(This As TextBox)

        This.SelStart = 0

        This.SelLength = Len(This.Text)

      End Sub