Textbox - select all text on focus

Sub  SelectAll()
'Put this in the GotFocus event of a textbox
Me .ActiveControl.SelStart = 0
Me .ActiveControl.SelLength = Len( Me .ActiveControl.Text)
End Sub

'this is an alternative for a specific textbox
txtOut.SelStart = 0
txtOut.SelLength = Len(txtOut.Text)