Sub AStreams_NewData (Buffer() As Byte)
Dim TXTO As String
Dbls = Array As Double(1,234, 5.678)
Ints = Array As Int(10, -2, 3, -4)
'TXTO = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
For i=0 To Buffer.Length-1
TXTO=Bit.ParseInt(Buffer(i),16)
txtLog.Text=TXTO & txtLog.Text
Next
End Sub