To fit Golf rules though it should be this

Code:
Dim $
$=-1,-1,-1,0,-1
IIf(Ascan($,0)<0,T,F)