Another option
Formula: copy to clipboard
=IF(MAX(IFERROR(FIND(MID(B1,SEQUENCE(LEN(B1)),1),A1),0))>0,TRUE,"")

If it shouldn't be case sensitive (ie a=A) then change find to search