Is this sub correct?

[ilaym123]

Hi, I wrote a code to read data from device here is the specs: $1 coin dropped it will send 1 byte 0x01 to RS232 Serial com Port $2 coin dropped it will send 2 bytes 0x01 $5 bill dropped it will send 1 byte 0x02 Here My code is: Do you think it is correct? Thank you: Private Sub MSComm1_OnComm(ByVal sender As Object, ByVal e As System.EventArgs) Handles MSComm1.OnComm Dim i As Long Select Case Me.MSComm1.CommEvent Case comEvReceive ReDim inbuffer(Me.MSComm1.InBufferCount) 'Specify the size of the array. InBuffercount gives the number of characters in the InputBuffer inbuffer = Me.MSComm1.Input For i = 0 To UBound(inbuffer) 'Ubound(inbuffer) gives the upper bound of the array, which is equal to the number of characters in the InputBuffer Debug.Print(inbuffer(i)) Select Case (inbuffer(i)) Case 1 monyin = monyin + 1 Case 2 monyin = monyin + 5 End Select Beep() Next i End Select End Sub

 

[Gopher2011]

Does it compile? The data is being received via RS232 as ascii right?

I am actually having this issue with my project right now also