problem with retrieving data from serial port

[muratti]

Hi;

I try to retrieve 8 byte data from com 3 however it is not working properly. I dont know what is wrong with my program! The code is below!
Thanks in advance!

Dim coming As String
MSComm1.PortOpen = True
MSComm1.InputLen = 0
MSComm1.Output = "AT" + Chr$(13)
If MSComm1.InBufferCount Then
MSComm1.InBufferCount = 0
End If
Do
DoEvents
Loop Until MSComm1.InBufferCount >= 8
coming = MSComm1.Input
txtpassword.Text = coming