For x = 0 To LOF(1)-1
Get 1, , rByte
txtString=chr(rByte)
ws.SendData txtString
Next x
почему клиент принимает байты с ошибками, некоторые вообще пропускает и т.д.
Бывает и такое, что данные SendData уходят, а клиент не принимает, как буд-то просто в пустоту...