Ahh!! Bueno, entonces yo probaría con Instr:
Dim pos as Integer
pos = Instr(adjNombre, "ASR")
if (pos<>0) then
'**LAS CONTIENE!
end if
Si, esto si me sirve. Muchas gracias!!!