DIM x AS LONG
x = ISTRUE(1 = 1)  ' returns -1
x = ISTRUE(1 = 0)  ' returns 0
x = ISFALSE(1 = 1) ' returns 0
x = ISFALSE(1 = 0) ' returns -1