Hola! Copio y pego de un código que tengo por ahi
Código:
Private Sub txtDireccion_GotFocus()
txtDireccion.SelStart = 0
txtDireccion.SelLength = Len(txtDireccion.Text)
End Sub
Cambia el nombre del txt por el que necesites...
Espero te sirva.
Saludos. Lucas