Read data from MSComm

Hi all,

i try to understand this, which i do not know how to explain. The picture below descript the form that i've done.
http://i140.photobucket.com/albums/r...er/project.jpg

Then the code

Code:

---

Option Explicit
Public bolComOpen As Boolean

Private Sub Option1_Click(Index As Integer) 'option to select handsking type
    Select Case Index
        Case Option1(0).Value = vbChecked
            MSComm1.Handshaking = comNone
        Case Option1(1).Value = vbChecked
            MSComm1.Handshaking = comRTSXOnXOff
        Case Option1(2).Value = vbChecked
            MSComm1.Handshaking = comRTS
        Case Option1(3).Value = vbChecked
            MSComm1.Handshaking = comRTSXOnXOff
    End Select
End Sub

Private Sub Command1_Click()  'command to start sending data
'Dim inputstring
On Error GoTo ErrorHandler
    Command1.Enabled = False    'command1 = start button
    Command2.Enabled = True    'command2 = Stop button
    Command3.Enabled = False    'command3 = close button
    With MSComm1
        .CommPort = Right(Trim(Combo1.Text), 1)  'combo1 = to display port option
        .Settings = Text1      'text1 = textbox to display parameter
        .PortOpen = True
    End With
    bolComOpen = True
    Command1.BackColor = vbGreen
    Text2 = ""                  'text2 = text for display incoming data
    Text3 = ""                  'text3 = text for display buffer size
    Combo1.Enabled = False
    Text1.Enabled = False
    Do
        With MSComm1
            If MSComm1.InBufferCount = 256 Then
            Text3 = .InBufferSize      'size buffer display on the buffer size textbox
            Text2.Text = Right(Text2.Text & .Input, 100) 'incoming data from serial port with the length of 100
            Open "C:\Documents and Settings\ece30966\test program\test.cli" For Output As #1
            Print #1, Text2.Text
            Debug.Print Text2.Text
            Close #1
            End If
        End With
    DoEvents
    Loop Until Not bolComOpen
    MSComm1.PortOpen = False
    Command1.Enabled = True
    Command2.Enabled = False
    Command3.Enabled = True
Exit Sub
ErrorHandler:
    MsgBox Err.Description
    Command1.Enabled = True
    Command2.Enabled = False
    Command3.Enabled = True
End Sub

Private Sub Command2_Click()
    bolComOpen = False
    Command1.BackColor = vbRed
    Combo1.Enabled = True
    Text1.Enabled = True
    Command1.Enabled = True
    Command2.Enabled = False
    Command3.Enabled = True
End Sub

Private Sub Command3_Click()
    Unload Me
End Sub

Private Sub Form_load()
    Combo1.Enabled = True
    Text1.Enabled = True
    Command1.Enabled = True
    Command2.Enabled = False
    Command3.Enabled = True
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If MSComm1.PortOpen = True Then
    MsgBox "click stop to close the connection first"
    Cancel = True
    End If
End Sub

---

The input send using serial port is for example 01010111
then data read as a character and save in C:\Documents and Settings\ece30966\test program\test.cli.

Since the file in .cli. Then what i do is to open using visual c++. i opened the file as type binary. and display this.

http://i140.photobucket.com/albums/r...r/project2.jpg

Can anyone please help me how to read this. how to read this data and compare with the input which is 01010111. Thanks.. please guide