View Single Post
Old 10-09-2011, 07:05 AM   #46762
rlpw
Creepy Father Figure
 
rlpw's Avatar
 
Join Date: Sep 2006
Location: Texas Dammit!
Posts: 5,107
Default

Dim StartPos, Counter As Integer
Dim FindString, ReplaceText As String
FindString = "test"
ReplaceText = "MyString"

For Counter = 1 To Len(Text1.Text)
StartPos = InStr(Text1.Text, FindString)
If StartPos > 0 Then
Text1.SelStart = StartPos - 1
Text1.SelLength = Len(FindString)
Text1.SelText = "" + ReplaceText
End If
Next
rlpw is offline