Чтение данных

[Gawwws]

При опросе устройства через ком-порт, я получаю следующее:
22:52:23 06.02.2010 ПЕРЕДАЧА: 23 8 18 87 C0
22:52:23 06.02.2010 ОТВЕТ ПРИБОРА: 23 F9 0A 42 5D.
Ответ мне надо определить как правильный, но когда снимаю так:

Me.MSC.InputMode = comInputModeText
fd = Me.MSC.Input
Text1.Text = fd

получаю фигню из разных символов.
Помогите снять корректную информацию.

[doober]

Если не трудно ,выложите протокол обмена.
И полностью Ваши процедуры работы с компортом.

[Gawwws]

Протокола обмена нет, мре только необходимо выполнить 2 команды, которые я выяснил опытным путём и ответы я знаю, только не могу их проверить програмным путём. Пишу так:

MSC.CommPort = 6
MSC.Settings = "2400,N,8,1"
MSC.Handshaking = comNone
MSC.InputLen = 0
MSC.InBufferSize = 40
MSC.OutBufferSize = 40
MSC.RThreshold = 0
MSC.PortOpen = True
MSC.Output = Chr(35) & Chr(1) & Chr(2) & Chr(2) & Chr(2) & Chr(2) & Chr(2) & Chr(2) & Chr(2) & "=6"
Me.Timer1.Enabled = True
Private Sub Timer1_Timer()
i = i + 1
If i = 20 Then
    Timer1.Enabled = False
    MsgBox "Устройство не отвечает!", vbCritical, "Ошибка!"
    Exit Sub
End If
Me.MSC.InputMode = comInputModeText
fd = Me.MSC.Input
Text1.Text = fd
End Sub

[doober]

Попробуйте так.

Public MS As MSComm
Public Buffer As String
Public flag As Boolean

Sub htenie()
MSC.CommPort = 6
MSC.Settings = "2400,N,8,1"
MSC.Handshaking = comNone
MSC.InputLen = 0
MSC.InBufferSize = 40
MSC.OutBufferSize = 40
MSC.RThreshold = 0
On Error Resume Next
MSC.PortOpen = True
MSC.InBufferCount() = 0
MSC.Output = Chr(35) & Chr(1) & Chr(2) & Chr(2) & Chr(2) & Chr(2) & Chr(2) & Chr(2) & Chr(2) & "=6"

 Timer1.Enabled = True
Buffer = ""
Do
    Buffer = Buffer & MSC.Input
If flag = True Then MSС.PortOpen = False: Exit Sub
 Loop Until InStr(Buffer, vbCrLf)
 Timer1.Enabled = False
Text1.Text = Buffer
 MSC.PortOpen = False

End Sub


Private Sub Timer1_Timer()

i = i + 1
If i = 20 Then
flag = True

    Timer1.Enabled = False
    MsgBox "Устройство не отвечает!", vbCritical, "Ошибка!"
    Exit Sub
End If

End Sub