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

[jUaN_]

Buenos dias a todos

Mi pregunta de hoy es la siguiente:

tengo una cadena de caracteres en donde a modo de ejemplo, es YP00000, y necesito que lea la cadena, y si ve que tiene la letra P, cumpla una condicion, y si no la tiene cumpla otra.

No se me ocurre que usar para que lea la letra, alguien me puede ayudar en esto?

de antemano muchisimas gracias a todos.

saludos!!

[PosDon]

Código:

Dim cadena
cadena = "YP0000"
caracter_a_buscar = "P"

if instr(1, cadena, caracter_a_buscar) <> 0 then
      'Encuentra el caracter o subcadena
Else
      'No lo encuentra
End if

[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).

[3pies]

Se me adelantó

[jUaN_]

muchas gracias a todos!!