Dim m1 As TMessage
If ((Payload(0) = 120) And (Payload(1) = -100)) Then 'B4xSerializator object
m1 = ser.ConvertBytesToObject(Payload)
Else 'Cloudmqtt console
m1.Initialize
m1.Body = BytesToString(Payload, 0, Payload.Length, "utf8")
m1.From = "<anonymous>"
End If