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

[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