Dim d As SerialPort
Dim x As AsyncStreams
d.SetPort("/dev/ttyMT2",9600,0)
x.Initialize(d.InputStream,d.OutputStream,"Astream")
Sub Astream_NewData (Buffer() As Byte)
Dim msg As String
msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
Log(msg)
End Sub