Crie uma procedure (Selecionar)
----------------------------------
Private Sub Selecionar()
Screen.ActiveForm.ActiveControl.SelStart = 0
Screen.ActiveForm.ActiveControl.SelLength = Len(Screen.ActiveForm.ActiveControl.Text)
End Sub
-----------------------------------
E então no GotFocus do TextBox que deseja ser selecionado
Private Sub TextBox1_GotFocus()
Selecionar
End Sub