Проблема с API на VB.net. Пример.

Привет, я ковыряюсь с программой для входа в роутер и получения информации через API. Использую пример на VB.net, который есть на вики: http://wiki.mikrotik.com/wiki/API_in_VB_dot_NET. Для большинства задач это работает отлично. Но в некоторых случаях, в основном для запросов, возвращающих большой объем информации, программа завершается с ошибкой. Я сузил область поиска до этого участка кода:

```
Public Function Read() As List(Of String)
   Dim output As New List(Of String)
   Dim o = ""
   Dim tmp(4) As Byte
   Dim count As Long

   While True
       tmp(3) = tcpStream.ReadByte()
       Select Case tmp(3)
           Case 0
               output.Add(o)
               If o.Substring(0, 5) = "!done" Then
                   Exit While
               Else
                   o = ""
                   Continue While
               End If
           Case Is < &H80
               count = tmp(3)
           Case Is < &HC0
               count = BitConverter.ToInt32(New Byte() {tcpStream.ReadByte(), tmp(3), 0, 0}, 0) ^ &H8000
           Case Is < &HE0
               tmp(2) = tcpStream.ReadByte()
               count = BitConverter.ToInt32(New Byte() {tcpStream.ReadByte(), tmp(2), tmp(3), 0}, 0) ^ &HC00000
           Case Is < &HF0
               tmp(2) = tcpStream.ReadByte()
               tmp(1) = tcpStream.ReadByte()
               count = BitConverter.ToInt32(New Byte() {tcpStream.ReadByte(), tmp(1), tmp(2), tmp(3)}, 0) ^ &HE0000000
           Case &HF0
               tmp(3) = tcpStream.ReadByte()
               tmp(2) = tcpStream.ReadByte()
               tmp(1) = tcpStream.ReadByte()
               tmp(0) = tcpStream.ReadByte()
               count = BitConverter.ToInt32(tmp, 0)
           Case Else
               Exit While 'err
       End Select

       For i = 0 To count - 1
           o += ChrW(tcpStream.ReadByte())
       Next
   End While
   Return output
End Function
```

В частности, все работает нормально, когда используется эта часть (небольшое количество данных):

```
Case Is < &H80
   count = tmp(3)
```

Но я получаю ошибку, когда доходит до этой части:

```
Case Is < &HC0
   count = BitConverter.ToInt32(New Byte() {tcpStream.ReadByte(), tmp(3), 0, 0}, 0) ^ &H8000
```

Эта часть кода фактически присваивает `count = "Infinity"`, поэтому я уверен, что это неправильно. Я публиковал вопросы на некоторых VB.Net форумах и пытаюсь разобраться, что это делает, но безрезультатно. Если кто-нибудь сталкивался с подобным или может подсказать, куда мне обратиться, буду очень благодарен. Спасибо! –Usogi