Es sencillo, esto es un ejemplo:
imagina que quieres encontrar si la cadena "aa" se encuentra en text1:
dim cadena as string, x as integer
cadena = "aa"
For x=1 to len(text1)-len(cadena)+1
   if mid(text1,x,len(cadena)) = cadena then stop 'existe cadena
next x

Me peudes explciar que hace cada linea? gracias
Mi progra es una conexion con winsock y me duevuelve siempre un numeor de 3 digitos los codigos de error http, ahora quiero hacer en el evento change que se fije que numeor llego, para realziar tal accion.
Gracias po responder

U exelente muchisimas gracias MR.Chispa  , Pero como hago esa funcion para que me busque en la primera linea dl text box? Muchisimas Gracias