Private Function DSInTwoBit() As Byte 'подпрограмма ввода 2 бит
    Dim Buf() As Byte
    Dim By As Byte
    mscDev.InBufferCount = 0 'очищаем входной буфер
    For I% = 0 To 1
        Call DSOutBit(True)
    Next I%
    TMInTime# = Now + TimeSerial(0, 0, 1) / 18 ' 1/18 секунды на ответ
    Do 'ждем когда на вход что нибудь придет, с учетом тайм-аута
    Loop Until (mscDev.InBufferCount > 1) Or (TMInTime# < Now)
    'проверяем, весь ли байт пришел
    If mscDev.InBufferCount <= 1 Then
        'байт не целиком, подставляем пучтой символ и выходим
        mscDev.InBufferCount = 0    'обнуляем буфер
        DSInByte = &HFF
        Exit Function
    End If
    Buf = mscDev.Input   'читаем буфер
        For I% = 0 To 1
            If Buf(I%) = &HFF Then
                By = By + 2 ^ I%
            End If
        Next I%
    DSInByte = By
End Function

Dim R(128)
    Dim Buf() As Byte
    Dim By As Byte
   
Text1.Text = ""
    Call DSReset                              'выдаем сброс
    Call DSOutByte(&HF0)                   'команда на поиск ПЗУ таблетки
         
         
        R(0) = DSInTwoBit
         
         If R(0) = 1 Then Call DSOutBit(True)
         If R(0) = 2 Then Call DSOutBit(False)
         If R(0) = 3 Then MsgBox "отвалилась!"

        R(1) = DSInTwoBit
         
         If R(1) = 1 Then Call DSOutBit(True)
         If R(1) = 2 Then Call DSOutBit(False)
         If R(1) = 3 Then MsgBox "отвалилась!"

        R(2) = DSInTwoBit
         
         If R(2) = 1 Then Call DSOutBit(True)
         If R(2) = 2 Then Call DSOutBit(False)
         If R(2) = 3 Then MsgBox "отвалилась!"


   
  For bt = 0 To 2
  Debug.Print R(bt);
  Next bt