اینجوری درسته؟
SetBit(b, 12, Math.Sign(a And (2 ^ 11)))