SelectString

Sub SelectText()
Dim txtBox As Control
Set txtBox = Screen.ActiveForm.ActiveControl
End Sub

'Chiamare la funzione nell'evento GotFocus.