Помогите разобраться с mscomm? - VB

Формулировка задачи:

Не могу установить связь с контроллером по com порту набираю например mscomm1.portopen = true mscomm1.output = 'Erase' От контроллера должен прийти ответ , вобщем получается так , ответ от контролера приходит и тутже буфер очищается не успевая отобразить в текстовом окне. mscomm1.input = text1.text Пришлите кто могет пример как открыть com порт , передать туда слово и принять ответ. Заранее спасибо.

Решение задачи: «Помогите разобраться с mscomm?»

textual
                            Листинг программы 
                        

                            MSComm1.PortOpen = True
MSComm1.Output = 'Erase'
Do
    DoEvents
Loop Until MSComm1.InBufferCount >= 10
Text1.Text = MSComm1.Input
                        