Warum StringToBinary?
$a = 0x563 ; 0x563 = 1379 = 10101100011
$b = 0x80 ; 0x80 = 128 = 10000000
$res = BitOR($a, $b) ; -> 0x5E3 = 1507 = 10111100011
MsgBox(4096, "Result", Int($res))Wenn die Stelle des zu setzenden Bits variabel ist, kannst du die "Mask"-Zahl auch einfach ausrechnen, ohne von Basis 2 zu Basis 16 umzurechnen: Wenn du das n-te Bit auf 1 setzen möchtest, verwende als Maske 2^(n-1). Einfache Mathematik. 
Habe kurz 2 Funktionen zusammengebastelt. Sie sind nur kurz getestet, es sollte vllt nochmal jemand drüberschauen. Nach meiner Einschätzung tun sie genau was du willst.
Local $Var = 123456
ConsoleWrite($Var & ': ')
For $i = 0 To 31 Step 1
ConsoleWrite(GetBit($Var, $i) & ' ')
Next
ConsoleWrite(@CRLF)
; Obacht, gezählt wird ab 0. Also Das erste Bit ist das 0te Bit.
SetBit($Var, 19, 1) ; 19tes Bit auf 1
SetBit($Var, 14, 0) ; 14tes Bit auf 0
SetBit($Var, 3, 1) ; 3tes Bit auf 1
ConsoleWrite($Var & ': ')
For $i = 0 To 31 Step 1
ConsoleWrite(GetBit($Var, $i) & ' ')
Next
ConsoleWrite(@CRLF)
Func SetBit(ByRef $iVar, $iPos, $iValue)
$iValue = $iValue ? 1 : 0
If IsInt($iPos) And $iPos >= 0 And $iPos < 32 And GetBit($iVar, $iPos) <> $iValue Then
$iVar = $iVar + 2 ^ $iPos * (BitAND($iVar, 2^$iPos) ? -1 : 1)
Else
Return SetError(1, 0, 0)
EndIf
EndFunc
Func GetBit($iVar, $iPos)
If IsInt($iPos) And $iPos >= 0 And $iPos < 32 Then Return BitAND($iVar, 2^$iPos) ? 1 : 0
Return SetError(1, 0, 0)
EndFunclg
M