What's wrong with this procedure?
------------------------------------------
Private Sub mscomm1_oncomm()
Dim sdata() As Byte
Dim re_data() As Byte
Dim i As Integer
If MSComm1.CommEvent = comevreveive Then
sdata = MSComm1.Input
End If
re_data = sdata
Cls
For i = 0 To UBound(re_data)
Print re_data(i)
Next i
End Sub
------------------------------------------

After running it, nothing happened. But when 51 sends back data to PC, it shows a error message, something like "runtime error'9'array exceeded the range?" The VB focus on the line "For i = 0 To UBound(re_data)"

Stanley