CodeItBetter Programming Another VB Programming Blog

'Controls - How to Search for a word in a Text box.
'Insert a Text box and a command button on a form and insert the following code:

'In a module
Public Sub FindFirst(txtBox As TextBox, ByVal sWord As String, _
    Optional ByVal bCaseSensitive As Boolean = False)
    txtBox.SelStart = 1
    Call FindNext(txtBox, sWord, bCaseSensitive)
End Sub
 
Public Sub FindNext(txtBox As TextBox, ByVal sWord As String, _
    Optional ByVal bCaseSensitive As Boolean = False)
    Dim iPos As Integer
    iPos = InStr(txtBox.SelStart + txtBox.SelLength, txtBox.Text, sWord, _
        IIf(bCaseSensitive, vbBinaryCompare, vbTextCompare))
    If iPos > 0 Then
        txtBox.SelStart = iPos - 1
        txtBox.SelLength = Len(sWord)
    Else
        txtBox.SelStart = 0
    End If
End Sub
 
'In a form
Private Sub cmdFindNext_Click()
    If Text1.SelStart = 0 Then
        Text1.SelStart = 1
    End If
    Call FindNext(Text1, "Test", False)
End Sub