Comparar cadena y subcadena con VBA.

   Hola estoy intentando comparar si una subcadena esta dentro de una cadena hagamos el siguiente supuesto: 

Dim a,b as string

a="hola"
b="o"

if instr (b,a) then
   msgbox "esta"
end if

Es un ejemplo pequeño, pues realmente este es el que aplico en mi aplicación y no me funciona como deseo, en que fallo? gracias.

Editado por hernanrgc - 02/Octubre/2009 a las 13:49