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