Sub astream_NewData (Buffer() As Byte)
Private data() = ser.ConvertBytesToArray(Buffer) As Object
Select data(0)
Case "logs"
If data.Length=4 Then
Private b() As Byte = data(3)
logbuff.Append(BytesToString(b,0,b.Length-1,"utf-8"))
If logbuff.Length >= data(1) Then
File.WriteString(File.DirRootExternal, "log.txt",logbuff.ToString)
logbuff.Remove(0,logbuff.Length-1)
End If
End If
End Select
End Sub