以下は、動作保証をしないので、自己責任で確認のこと。プログラム等その他により生じたいかなる損害等その他について、責任を負いませんので、予めご了承してください。

Option Explicit

Sub test()

'VBA

Dim Y

Dim X1

Dim X2

X1 = 4

X2 = 2

'True:-1 False:0

Y = (X1 = 3) * -1 + (X2 = 2) * -1

Debug.Print Y '1

Y = X1 * (X1 = 4) * -1 + X2 * (X2 = 2) * -1

Debug.Print Y '6

End Sub