Разложить байт на биты

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim a As Variant
Winsock1.GetData a, , bytesTotal          'get message from buffer
 
Text3.Text =    '??????
End Sub

Public Function HexToBin(HexNum As String) As String
    Dim BinNum As String
    Dim lHexNum As Long
    Dim i As Integer
     
    On Error GoTo ErrorHandler
     
     '  Check the string for invalid characters
    For i = 1 To Len(HexNum)
        If ((Asc(Mid(HexNum, i, 1)) < 48) Or _
        (Asc(Mid(HexNum, i, 1)) > 57 And _
        Asc(UCase(Mid(HexNum, i, 1))) < 65) Or _
        (Asc(UCase(Mid(HexNum, i, 1))) > 70)) Then
            BinNum = ""
            Err.Raise 1016, "HexToBin", "Invalid Input"
        End If
    Next i
     
    i = 0
    lHexNum = Val("&h" & HexNum)
    Do
        If lHexNum And 2 ^ i Then
            BinNum = "1" & BinNum
        Else
            BinNum = "0" & BinNum
        End If
        i = i + 1
    Loop Until 2 ^ i > lHexNum
     '  Return BinNum as a String
    HexToBin = BinNum
ErrorHandler:
End Function
 
MsgBox HexToBin("FF") ' Получаем 11111111

Text3.Text = а(10)

Dim strData As String
         Winsock1.GetData strData
    Debug.Print strData

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim stra As String
 
Winsock1.GetData stra          'get message from buffer
MsgBox stra  
End Sub

Winsock1.GetData stra , vbString
Winsock1.GetData

Text3.Text = Val(a(9))

Public Function DecToBin(DeciValue As Long, Optional NoOfBits As Integer = 8) _
As String
 
  Dim i As Integer
  'make sure there are enough bits to contain the number
  Do While DeciValue > (2 ^ NoOfBits) - 1
    NoOfBits = NoOfBits + 8
  Loop
  DecToBin = vbNullString
  'build the string
  For i = 0 To (NoOfBits - 1)
      DecToBin = CStr((DeciValue And 2 ^ i) / 2 ^ i) & DecToBin
  Next i
End Function

Text4.Text = DecToBin(Val(a(9)))

function GetBitN(b as byte,n as byte)as byte
  GetBitN=-((b and 2^n)<>0)
end function

Function GetBitA(b As Byte)
Dim a(0 To 7) As Byte, i As Byte, t As Integer
  t = 1
  For i = 0 To 7
    a(i) = -((b And t) <> 0)
    t = 2 * t
  Next i
  GetBitA = a
End Function
 
Sub GetBitA_Example()
Dim v
v = GetBitA(128)
End Sub

Private Sub Command1_Click()
Dim StartTime
StartTime = Timer
Do While Timer < StartTime + 1
ReadCoils
Loop
End Sub

Private Sub Command1_Click()
Dim StartTime as single
1:
ReadCoils
StartTime = Timer
Do While Timer-starttime<1 and Timer-starttime>0
  doevents
Loop
goto 1
End Sub