I am a newbie in VB

I want to read from the serial port which is connected through a null -
modem cable to other computer, On the second computer is running Com Port
ToolKit which send string.

I use for reading the following code taken from Help VB6

Private Sub Command1_Click()

Dim Buffer as Variant

Dim Arr() as Byte

' Set and open port

MSComm1.CommPort = 1

MSComm1.PortOpen = True

' Set InputMode to read binary data

MSComm1.InputMode = comInputModeBinary

' Wait until 10 bytes are in the input buffer

Do Until MSComm1.InBufferCount < 10

DoEvents

Loop

' Store binary data in buffer

Buffer = MSComm1.Input

' Assign to byte array for processing

Arr = Buffer

Print "Buffer=", Buffer ' Added by Boris

End Sub

I receive nothing through PRINT, except Buffer =

From the same computer I send from VB program through the same null - modem
cable to the second computer with Com Port ToolKit and receive it

Please help

Private Sub MSComm1_OnComm()
     ' we have some data to get    
End Sub

======== Snip from VB Help =========
Note   The MSComm control can use polling or an event-driven method to
retrieve data from the port. This simple example uses the polling
method. For an example of the event-driven method, see help for the
OnComm event.
================================

Actually looking at it more carefully - you are lucky the buffer count
is not 10 or more - otherwise you would be in the loop for ever.

The other poster was quite correct about Print - I would print the
ASCII codes - not the data

On Sat, 28 Apr 2001 21:59:30 +0200, "Boris Skoblo"