Чтение и изменение бита в числе

Case Is = 2         
        intInf(0) = Asc(MSComm1.Input) '
        intInf(1) = Asc(MSComm1.Input) ' 
        intInf(2) = Asc(MSComm1.Input) ' 
        intInf(3) = Asc(MSComm1.Input) ' 
       ' и т.д

Public Function ToBin(ByVal bByte As Byte) As String
Dim i As Integer
For i = 0 To 7
If bByte And 2 ^ i Then
ToBin = 1 & ToBin
 Else
ToBin = 0 & ToBin
 End If
Next i
End Function

Private Sub Form_Load()
    Dim b As Long
    Dim index As Long
    ' Работаем с 3-м битом (индексация от 0)
    index = 3
    ' Установить бит
    b = b Or (2 ^ index)
    ' Сбросить бит
    b = b And Not (2 ^ index)
    ' Инвертировать бит
    b = b Xor (2 ^ index)
    
End Sub

Dim Deg2(0 to 15) as long
Deg2(0) =1
Deg2(1) =2
Deg2(2) =4
.....
Deg2(15)=32768

Dim Bit5Exist as Boolean
Bit5Exist = M And Deg2(5)

M = M Or Deg2(5)

M = M Xor Deg2(5)

M = (M Or Deg2(5)) Xor Deg2(5)

M = M And (Deg2(15)-Deg2(5)-1)

Public Deg2 as Variant
Sub InitDeg2()
 Deg2 = Array(1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, 16384, 32768)
End Sub
Function BitGet(m, N As Byte) As Boolean
 BitGet = m And Deg2(N)
End Function
Function BitPut(m, N As Byte) As Long
 BitPut = m Or Deg2(N)
End Function
Function BitOut(m, N As Byte) As Long
 BitOut = m And Not Deg2(N)
End Function
Function BitSwp(m, N As Byte) As Long
 BitPut = m Xor Deg2(N)
End Function

Option Explicit
'
'Хороший пример для демонстрации битовой операции Xor
'Объеденил с CheckBox
'
Const Dig = 16 'Число разрядов можно изменить
Const r = 90, rr = r * 2
Dim WithEvents ch As CheckBox, WithEvents tx As TextBox, WithEvents bt As CommandButton
 
Private Sub ch_Click()
    tx.Text = Val(tx.Text) Xor d(Mid$(ch.Name, 3))
End Sub
 
Public Property Get d()
    Static i&, dd&(): Do Until i: ReDim dd(Dig + 1): For i = 0 To Dig: dd(i + 1) = 2 ^ i: Next: Exit Do: Loop: d = dd
End Property
 
Private Sub NewFocus()
    On Error Resume Next: Set ch = ActiveControl: Set tx = ActiveControl: Set bt = ActiveControl
End Sub
 
Private Sub bt_Click()
    Dim i&: For i = 1 To Dig: Controls("ch" & i).Value = 0: Next: tx.Text = 0
End Sub
 
Private Sub Form_Load()
    Dim i&, l&, lb As Label
    Me.Caption = "Xor"
    For i = 1 To Dig
        Set ch = Controls.Add("vb.CheckBox", "ch" & Dig - i + 1): With ch
            .Move l + r, r, rr, rr: l = l + rr: .Visible = 1
        End With
    Next
    Set tx = Controls.Add("vb.TextBox", "tx"): With tx
        .Move r, rr * 2, rr * 8, r * 3: .Visible = 1
    End With
    Set bt = Controls.Add("vb.CommandButton", "bt"): With bt
        .Move tx.Width + r, rr * 2, rr * 8, r * 3: .Caption = "Сброс": .Visible = 1
    End With: bt_Click
End Sub
 
Private Sub Form_Activate(): NewFocus: End Sub
Private Sub ch_LostFocus(): NewFocus: End Sub
Private Sub tx_LostFocus(): NewFocus: End Sub
Private Sub bt_LostFocus(): NewFocus: End Sub

Public Deg2(0 To 31) As Long
Sub InitDeg2()
 Dim p As Long
 
 Deg2(0) = 1
 For p = 1 To 30
  Deg2(p) = 2 * Deg2(p - 1)
 Next p
 Deg2(31) = -2 * Deg2(30)
 
End Sub

Function SummDeg2(ByVal N) as Long
 Dim k As Long, SD2 as Long, D2 as long
 D2 = 1
 SD2 = D2
 for k = 1 to N
  D2 = 2*D2
  SD2 = SD2 + D2
 Next k
End Function

Private Deg2(0 To 31) As Long
 
Private Sub Command1_Click()
Dim m As Double, i As Long
 
'm = &HFFFFFFFF
m = 2863311530#
'm = 1431655765
'm = &HF0F0F0F0
 
Call InitDeg2
 
For i = 31 To 0 Step -1
    Debug.Print CStr(getBitULong(m, i));
Next i
Debug.Print
 
End Sub
 
Function getBitULong(L As Double, n As Long) As Long
Dim sd30 As Long
 
sd30 = SummDeg2(30)
 
If n = 31 Then
    If L > sd30 Or L < 0 Then
        getBitULong = 1
        Exit Function
    End If
Else
    If L > sd30 Then L = L - sd30 - 1
    If (L And Deg2(n)) <> 0 Then getBitULong = 1
End If
 
End Function
 
Sub InitDeg2()
Dim p As Long
 
Deg2(0) = 1
For p = 1 To 30
    Deg2(p) = 2 * Deg2(p - 1)
Next p
 
End Sub
 
Function SummDeg2(ByVal n) As Long
Dim k As Long, D2 As Long
D2 = 1
SummDeg2 = 1
For k = 1 To n
    D2 = 2 * D2
    SummDeg2 = SummDeg2 + D2
Next k
End Function

Function getBitULong(byVal L As Double, n As Long) As Long