Public Function ReadBit(ByVal byteAdr As Integer, ByVal bitAdr As Byte) As Integer
Dim RetVal As Long
Dim V1 As Integer
RetVal = daveReadBytes(dc, daveFlags, 0, byteAdr, 1, 0)
If RetVal = 0 Then
V1 = daveGetS8(dc)
If (V1 And bArray(bitAdr)) > 0 Then...