Setting a bit in a signed 16bits value in vbs

Well, I didn't test the code with VBS, I think that not possible to declare a constant like this, but in VB this code worked perfectly .

'========================================================
Sub SetBit()

Const BIT0 = 2 ^ 0
Const BIT1 = 2 ^ 1
Const BIT2 = 2 ^ 2
Const BIT3 = 2 ^ 3
Const BIT4 = 2 ^ 4
Const BIT5 = 2 ^ 5
Const BIT6 = 2 ^ 6
Const BIT7 = 2 ^ 7
Const BIT8 = 2 ^ 8
Const BIT9 = 2 ^ 9
Const BIT10 = 2 ^ 10
Const BIT11 = 2 ^ 11
Const BIT12 = 2 ^ 12
Const BIT13 = 2 ^ 13
Const BIT14 = 2 ^ 14
Const BIT15 = 2 ^ 15

Dim value

'Set the Bit 13
value = value Or BIT13

'Set the Bit 4
value = value Or BIT4

End Sub
'========================================================

'========================================================
Sub ResetBit()

Const BIT0 = Not 2 ^ 0
Const BIT1 = Not 2 ^ 1
Const BIT2 = Not 2 ^ 2
Const BIT3 = Not 2 ^ 3
Const BIT4 = Not 2 ^ 4
Const BIT5 = Not 2 ^ 5
Const BIT6 = Not 2 ^ 6
Const BIT7 = Not 2 ^ 7
Const BIT8 = Not 2 ^ 8
Const BIT9 = Not 2 ^ 9
Const BIT10 = Not 2 ^ 10
Const BIT11 = Not 2 ^ 11
Const BIT12 = Not 2 ^ 12
Const BIT13 = Not 2 ^ 13
Const BIT14 = Not 2 ^ 14
Const BIT15 = Not 2 ^ 15

Dim value
value = 65535 '2#1111111111111111

'Reset the bit 14
value = value And BIT14

'Reset the bit 2
value = value And BIT2

End Sub
'========================================================

I imagined

Well, the use of the constants facilitates a lot, you can use that

Sub Example()

Const BIT0=1
Const BIT1=2
Const BIT2=4
Const BIT3=8
Const BIT4=16
Const BIT5=32
Const BIT6=64
Const BIT7=128
Const BIT8=256
Const BIT9=512
Const BIT10=1024
Const BIT11=2048
Const BIT12=4096
Const BIT13=8192
Const BIT14=16384
Const BIT15=32768

Dim Value
'set the bit 15
Value = Value OR BIT15
'reset the bit 15
Value = Value AND NOT BIT15

End Sub