Markera text?

Hur skall jag kunna markera en vis text i en textruta?
Så här är det:
Jag replaca en viss text i text1.

Text2 kommer då att se ut så här efter ett antal operationer:
MultiLang_TEXT1    "En Bra TestSida" 
  
MultiLang_TEXT2    "Känn Dig välkommen till Användarföreningens hemsida." 
 

För varje replace, så lägger jag in en siffra i list1, i detta fallet ser list ut:
1
2

Genom en split så kan jag få tag på den texten som jag vill ha:

Dim texten() As String, j As Integer 
j = List1.ListIndex ' + 1 
   texten = Split(Text2.text, " ") 
   Label1.Caption = Replace("Visa inlaggd multilang nr: ", vbTab, "") & j + 1 
   Info.Caption = Replace(texten(j), vbTab, "")

Jag behöver alltså bara klicka i list1 så har jag den texten jag vil ha.

Nu skulle jag vilja att just den texten också var markerad i text2.
Är detta möjligt?
:q

Jag hittade en kodsnutt som gör som jag ville:

Dim s as string,l as long
s = "MultiLang_TEXT" & j + 1 
   
   l = InStr(Text2.text, s) 
   If l = 0 Then ' 1st spot is string is 1. 0 means "not found" 
       MsgBox "The text was not found." 
   Else 
       Text2.SetFocus 
       Text2.SelStart = l - 1 ' 1st spot for selected text is numbered 0 
       Text2.SelLength = Len(Info.Caption)-1    
End If

Nu tror jag inte att det kan bli bättre