Cвойства TextBox'a. 
SelLegth SelStart SelText


Часто возникают ситуации, когда при использовании TextBox необходимо, что бы при перемещении на него фокуса, текст находящийся в нем маркировался. 
Или же при при перемещении на него фокуса, (или добавлении в него другого текста) курсор сразу должен перемещаться в конец имеющегося в TextBox - е текста. 
Или же иметь возможность для дальнейщих Ваших операций с маркированным текстом. Все это, позволяют сделать некоторые свойства TextBox-а – SelLegth, 
SelStart и SelText. 
Рассмотрим оба случая. 
Первый случай - при перемещении фокуса на TextBox, текст находящийся в нем маркировался. Для этого необходимо в процедуру Text1_GotFocus вставить следующий код: 
Private Sub Text1_GotFocus()


'Определяем начальное положение текста 
Text1.SelStart = 0


'Маркируем всю длину текста, вычисляя его спомощью оператора Len 
Text1.SelLength = Len(Text1.Text) End Sub


Второй случай - - при перемещении фокуса на TextBox, (или добавлении в него другого текста) курсор должен перемещаться в конец имеющегося в TextBox - е текста.
 Для этого необходимо в процедуру Text1_GotFocus вставить следующий код: 
Private Sub Text1_GotFocus() 


'Определяем длинну имеющегося текста и присваиваем это позиции начала следующего текста 
Text1.SelStart = CLng(Len(Text1.Text)) End Sub


Третий случай - возможность обработки маркированного текста. Для этого можно использовать одну строку кода. 
Dim strMarkText As String 


'Присваиваем переменной strMarkText текст маркированный в TextBox 
strMarkText = Text1.SelText