Visual Basic - ayuda porfavor

hola que tal? mi duda es que necesito que un commandbutton me busque en todas las entradas de texto que estan puestas la palabra letra o numero que le pogfa en un textbox

Private Sub Command1_Click()
Dim c As Control
For Each c In Me.Controls
If TypeOf c Is TextBox Then
If Not c.Name = "txtBuscar" Then 'para que no busque en la comparacion
If Trim(UCase(c.Text)) = Trim(UCase(Me.txtBuscar.Text)) Then
MsgBox "encontrado"
c.SetFocus
End If
End If
End If
Next
End Sub

Ojala te sea util, Suerte!

Hola, no se si te servira esto pero es cuestion de probar, te doy una idea y luego lo afinas tu con lo vallas a montar.

En la ayuda de VB tienes la palabra "LIKE", que es el metodo para realizar dichas busquedas yo tengo algo montado y funciona.

Desde_Cod = "*" & Text1.text & "*"

'Montas un bucle con el Do While, si estas leyendo en una base de datos

' y haces la pregunta del millon

If "Campo que estas leyendo" Like Desde_Cod then
'pintalo en un texbox, una grip a impresora, etc
end if

Hola, no se si te servira esto pero es cuestion de probar, te doy una idea y luego lo afinas tu con lo vallas a montar.

En la ayuda de VB tienes la palabra "LIKE", que es el metodo para realizar dichas busquedas yo tengo algo montado y funciona.

Desde_Cod = "*" & Text1.text & "*"

'Montas un bucle con el Do While, si estas leyendo en una base de datos o como tu acostumbres a leer

' y haces la pregunta del millon

If "Campo que estas leyendo" Like Desde_Cod then
'pintalo en un texbox, una grip a impresora, etc
end if
'cierra el Do While
Loop

Espero que te ayude a resolver tu pregunta.
Salu2.
Aki