Visual Basic - Busqueda por caracter presionado

Mi pregunta es que si me puede ayudar algiuien con el codigo, para hacer un buscador que me busque las concidencias por caracter escrito sobre un textbox en visual basic

Uhmm, agrega a tu form 2 TextBox y 2 CommandButton, y pega:

Dim inicio, ultimo As Integer

Private Sub cmdBuscar_Click()
For inicio = ultimo To Len(Me.Text1.Text)
If UCase(Me.Text2.Text) = UCase(Mid(Me.Text1.Text, ultimo, Len(Me.Text2.Text))) Then
Me.Text1.SetFocus
Me.Text1.SelStart = ultimo - 1
Me.Text1.SelLength = Len(Me.Text2.Text)
ultimo = inicio + Len(Me.Text2.Text)
Exit For
Else
ultimo = ultimo + 1
End If
If inicio = Len(Me.Text1.Text) Then
MsgBox "es el final"
End If
Next
End Sub

Private Sub cmdNueva_Click()
inicio = 1
ultimo = 1
End Sub

Private Sub Form_Load()
inicio = 1
ultimo = 1
End Sub

Cada que quieras volver a buscar das click a cmdNueva, para que empiece desde cero. Adecualo a tu necesidad, espero te ayude.

Suerte!

la verdad lo que necisito por medio de un texto, cada vez que escriba sobre el texbox se me ejecute una consulta en sql con la considencias de los caracteres y poder mostar la consulta hecha en una grilla

Bueno, como no especificaste que era en BD por eso te mande lo otro. XD
Agrega tus referencias, 1 datagrid y 1 textbox. Pega:

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider = SQLOLEDB.1.0; Data Source =(local); database=northwind; user id=sa; password=sa"
cn.Open
rs.CursorLocation = adUseClient
rs.Open "Select * from customers", cn, adOpenDynamic, adLockOptimistic
Set Me.DataGrid1.DataSource = rs
End Sub

Private Sub Text1_Change()
If Not Me.Text1.Text = Empty Then
rs.Filter = "CompanyName like '" & Me.Text1.Text & "*'"
End If
End Sub

Tambien funcionaria con una consulta SQL con el LIKE algo asi:
Private Sub Text1_Change()
rs.Close
rs.Open "Select * from customers where companyname like '" & Me.Text1.Text & "%'", cn, adOpenDynamic, adLockOptimistic
Set Me.DataGrid1.DataSource = rs
End Sub

Ya tu ve cual usas. Suerte!

muchas gracias colega, su aporte me hacido de gran ayuda.