Visual Basic - Buscar Cadenas

Hola!
Ojalá y me puedan ayudar con esto, lo que quiero hacer es buscar una cadena específica ejemplo cadena1 y despues de 3 caracteres siguientes guardar la cadena2 en un listbox
ejemplo:
cadena1 = "cadena2"
Gracias de antemano!

Lo que quieres lo haces con la funcion Instr y Mid de Visual Basic

Tio que facil

pos=instr(1,Cadena_a_buscar,cadena1)
if pos>0 then
resultado=mid(Cadena_a_buscar,1,pos) & _
cadena3 & _
mid(Cadena_a_buscar,pos)