Visual Basic - caja de texto

Como le hago para que al llegar el foco en una caja de texto cualquiera me seleccione todo el texto que esta en el para no tener que borrar nada sino solo escribir... de antemano gracias por la respuesta

Ya probe con el SelLength pero cuando escribo algo y luego vuelve el foco no me selecciona lo escrito... ayudaaa

Así lo hacÍa

TEXT1.SelStar = 0
TEXT1.SelLength = LEN(TEXT1)
TEXT1.Setfocus

Gracias por la ayuda...