Sub AStreams_NewData(Buffer() As Byte) As String
Private msg As String
Private bmsg() As Byte
Dim Blob(Buffer.Length) As Byte
Dim bc As ByteConverter
bc.LittleEndian = True 'convert to little endian
bc.ArrayCopy(Buffer, 0, Blob, 0, Buffer.Length)
List1.Clear
msg=BytesToString(Blob,0,Blob.Length, ("UTF-8"))
lblRX.Text = "Length:" & msg.Length
bmsg = msg.GetBytes("UTF8") ' bytes > 127 ?????
List1.AddAll(bmsg)
lblBytes.Text = ""
For i = 0 To List1.Size-1
lblBytes.Text = lblBytes.Text & List1.Get(i) & " "
Next
End Sub