leer un caracter en un string y cumplir condicion verdadero o falso

[3pies]

cadena="YP00000"
caracter="P"
'La función instr te devuelve la posición que ocupa
'la palabra o cadena buscada, dentro de otra cadena.
'Si no hay coincindencias devuelve el valor 0.
'Si es distinto de cero...
if Instr(cadena,caracter)<>0 then...
...
else
...
end if

Como distingue mayúsculas de minúsculas, lo mejor es que pases tanto la cadena como el caracter de la misma forma (usando ucase, o lcase).