ok el asunto esta facil lo unico que tenes que hacer es usa la función MID
por ejemplo con lo del msflexgrid.
seria algo así
for i = 1 to msflexgrid.rows -1
if MID(msflexgrid.textmatrix(2,i),1,3) = StrBusqueda then
msgbox "se ha encontrado un resultado"
end if
next i
de esa manera ..
nos vemos..
P.D. El codigo lo hice al alza así que pude tener algún error revisalo