'Text kutusuna geldiğinizde (GOTFOCUS) kutu
'içindeki karakterlerin seçili olmasıiçin o text
'kutusunun GotFocus olayına
'SeciliTxBox
'yazın
Sub SeciliTxBox ()
Screen.ActiveControl.SelStart = 0
Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text)
End Sub