Private Sub Text5_GotFocus()
se selecciona todo el valor en el cuadro de texto
SendKeys "+{HOME}+{END}"
End Sub
