Чтобы преобразовать битовую строку VBA в байт, вы можете использовать несколько методов. Вот несколько примеров кода:

Метод 1: использование побитовых операций

Function BitStringToByte(bitString As String) As Byte
    Dim value As Byte
    Dim i As Integer

    For i = 1 To Len(bitString)
        value = (value * 2) + CByte(Mid(bitString, i, 1))
    Next i

    BitStringToByte = value
End Function

Метод 2. Использование функции Val

Function BitStringToByte(bitString As String) As Byte
    Dim value As Byte
    Dim i As Integer

    For i = 1 To Len(bitString)
        value = (value * 2) + Val(Mid(bitString, i, 1))
    Next i

    BitStringToByte = value
End Function

Метод 3: использование функции WorksheetFunction.Bin2Dec

Function BitStringToByte(bitString As String) As Byte
    Dim value As Byte

    value = WorksheetFunction.Bin2Dec(bitString)

    BitStringToByte = value
End Function

Метод 4. Использование метода Convert.ToByte в.NET

Function BitStringToByte(bitString As String) As Byte
    Dim value As Byte

    value = Convert.ToByte(bitString, 2)

    BitStringToByte = value
End Function

Это всего лишь несколько примеров того, как можно преобразовать битовую строку в байт в VBA. Каждый метод использует свой подход, поэтому вы можете выбрать тот, который лучше всего соответствует вашим потребностям.