Работа с COM Port и библиотекой Microsoft Comm Control 6.0

[Sounds]

Народ помогите пожалуйста разобраться, не как не получается считать данные из COM Porta.
Библиотека стандартная Microsoft Comm Control 6.0
Вот посмотрите код, тут всё работает:

Код: Выделить всё

Private Sub Form_Load()
MSComm1.CommPort = 3
MSComm1.Settings = "2400,N,8,1"
MSComm1.PortOpen = True
End Sub
Private Sub Timer1_Timer()
Text1.Text = MSComm1.InBufferCount 'Возвращает количество символов ждущих в получаещем буфере
Text2.Text = MSComm1.InBufferSize 'Устанавливает и возвращает размер получающего буфера в байтах
End Sub


У меня не как не получается считать MSComm1.Input в text3.text, когда я пытаюсь считать он мне выдаёт ошибку: Error reading comm devise
Считать я пытаюсь следующим образом: Text3.Text = MSComm1.Input

В чём может быть проблема, что я не так делаю?
P.S. Спасибо за помощь и за внимание!!!

[Sounds]

Не ужели не кто незнает?

[mrs2000]

И меня сделано примерно так:

Код: Выделить всё

Private Sub ScannerTimer_Timer()
   Dim result As String

   Do While MSComm1.InBufferCount
         result = result + MSComm1.Input
   Loop
   text3 = result
End Sub