Help!- MSComm Control Madness

[Joe G \(Home\)]

Hi All,

I have 16 bytes 0x02, then "0F0270632E 30" then <CR> then <LF> then 0x03
that are received by the serial port of my PCs.

The only variation is the string ASCII hex values

I know my serial port works on all machines as the data is correct in
Hyperterminal (9600, N, 8,1)

HELP
-----------
Using the PC with VB6 and Studio I can receive the data correctly OK

BUT.....

When I deploy the VB6 on to another PC the serial data received is in
correct.
Length of VarchrBuff on the deployed PC is 14 but should be 16?????

Both PCs run XP

Any help would be appreciated

MSComm1.InputLe n = 0
MSComm1.InBuffe rSize = 1024
MSComm1.RThresh old = 12 ' Expect more than 12

MSComm1.InputMo de = comInputModeBin ary ' BINARY MODE
MSComm1.OutBuff erSize = 1024

MSComm1.SThresh old = 0
'MSComm1.SThres hold = 512

'Handshaking options:
MSComm1.Handsha king = comNone
'Open the port.
If MSComm1.PortOpe n = False Then
MSComm1.PortOpe n = True
End If

MSComm1.InBuffe rCount = 0
End Function

MSComm1_OnComm( ) in the receive code is as follows

Dim ComEventMessage As String
Dim StartPos, EndPos, i As Integer
Dim tagASCIIhex As String
Dim TagCRC As Byte
Dim VarchrBuff As Variant
Dim bytearray() As Byte
..
..

Case comEvReceive
ComEventMessage = "Receive buffer has RThreshold number of
characters."
If MSComm1.InBuffe rCount > 0 Then
VarchrBuff = MSComm1.Input: ' Get serial
data
MSComm1.InBuffe rCount = 0 ' Now we have data flush Rx buffer
StartPos = 0: EndPos = 0
bytearray() = VarchrBuff

For i = 0 To (LenB(VarchrBuf f) - 1)

If bytearray(i) = 2 Then StartPos = 1: bytearray(i) = 32
If bytearray(i) = 3 Then EndPos = i: bytearray(i) = 32
Print "byte i = "; i; " byte = "; bytearray(i); " char ";
Chr(bytearray(i ))

Next i
Print "LenB(VarchrBuf f) = "; LenB(VarchrBuff )
End if