Para selecionar o conteudo de um TextBox quando receber focu, basta utilizar o codigo abaixo:

Rotina (colocar em um Modulo)

Public Sub Seleciona_Texto(txtTexto As TextBox)
   txtTexto.SelStart = 0
   txtTexto.SelLength = Len(txtTexto.Text)
End Sub

Evento GotFocus

Private Sub Text1_GotFocus()
   Seleciona_Texto Text1
End Sub

flw