ok, i changed it to the following
' Fire Rx Event Every Two Bytes
MSComm1.RThreshold = 2
' When Inputting Data, Input 2 Bytes at a time
MSComm1.InputLen = 2
' 2400 Baud, No Parity, 8 Data Bits, 1 Stop Bit
MSComm1.Settings = "9600,N,8,1"
' Make sure DTR line is low to prevent Stamp reset
MSComm1.DTREnable = False
' Open COM1
MSComm1.CommPort = 3
MSComm1.PortOpen = True
End Sub
Private Sub Timer1_Timer()
Dim sData As String
' If Rx Event then get data and process
If MSComm1.CommEvent = comEvReceive Then
sData = MSComm1.Input ' Get data
If sData = "<" Then
Do
Label2.Caption = sData
Loop Until (sData = ">")
End If
End If
End Sub
but still nothing,just 0 