Still not working... >_<
The program:
----------------------------------------
Private Sub MSComm1_OnComm()
Dim sData() As Byte
If MSComm1.CommEvent = comEvReceive Then
Cls
sData = MSComm1.Input
Print sData(LBound(sData))
'Print sData(UBound(sData) + 1)
Print UBound(sData)
End If
End Sub
----------------------------------------
The output:
----------------------------------------
0
0
----------------------------------------
Stanley