delete row based on criteria

In my locale it would be:

B1: 
=IF(EXACT(UPPER(LEFT(A1,3)),LEFT(A1,3))*(MIN(FIND({1,2,3,4,5,6,7,8,9,0},A1&1234567890))=4),1,NA())
copied down

see the attached - it should auto translate to your own settings upon opening - from which you can copy the formula (to your file).