собственно сабж 

исходные данные: 
имеем проект на VB 
имеем MSComm Control который собственно и работает с ком-портом. 

проблема в следующем: 
у меня новая строка уходит в порт до того времени как я получил оттуда ответ и естественно вместо полноценного общения с устройством имею кашу  

счас попытаюсь обьяснить как у меня это реализовано, может кто подскажет чего делать, и как побороть. В форме пять окошек для ввода и кнопка. В окошки вводятся параметры для плевания стрингов в порт, и собственно динамическое обновление этих параметров. 

Option Explicit ' обьязательное обявление переменных 

Private Sub Command1_Click() 

Open "read.txt" For Append As #1 ' открыли файл для записи 

Dim text_cyl As String 
Dim text_head As String 
Dim text_start As String ' обьявили кучку переменных 
Dim text_count As String ' куда заносятся значения 
Dim text_buf As String ' из текстовых полей 
'------------------------ 
text_cyl = Text1.Text 
text_head = Text2.Text ' передали в переменные 
text_start = Text3.Text 
text_count = Text4.Text 
text_buf = Text5.Text 
'------------------------ 
Dim start As Integer 
Dim count As Integer ' кучка переменных для математики процесса 
Dim buf As Integer 
'---------------------------- 
start = Val(text_start) ' init start 
buf = Val(text_buf) ' init bufer count 
'---------------------------- 

Dim instring As String ' for input on com-port 

Dim a As String 
Dim b As String 
Dim c As Integer 
b = "&H" 
a = text_count 
a = b & a 
c = Val(a) 
'------------------ 
Dim x 
Dim temp_start 
temp_start = start 
For x = start To c Step 16 
temp_start = Hex(x) 


MSComm1.Output = "/2" & Chr(13) 

вот вроде бы тут я должен опросить порт на ответ, а как сделать опрос??? 

MSComm1.Output = "s" & text_cyl & "," & text_head & Chr(13) 

еще опрос 

MSComm1.Output = "r," & temp_start & ",10" & Chr(13) 

еще опрос 

Dim y 
Dim temp_buf 
temp_buf = buf 
For y = 0 To 15 
temp_buf = Hex(y) 

MSComm1.Output = "/1" & Chr(13) 

еще опрос 

MSComm1.Output = "B" & temp_buf & "," & temp_buf & Chr(13) 

еще опрос 

instring = MSComm1.Input 
Print #1, , instring 
собственно прием того что я жаждал из порта 
Next y 
Next x 
Close #1 
End Sub 
--------- 
Private Sub Form_Load() 
MSComm1.CommPort = 1 
MSComm1.PortOpen = True 
MSComm1.Settings = "9600,N,8,1" 
MSComm1.Output = ChrW(&H1A) 
End Sub