Private Sub Client_MessageArrived(Topic As String, Payload() As Byte)
Dim received As String = BytesToString(Payload,0,Payload.Length,"UTF-8")
Dim m As Message
m.Initialize
m.Topic = Topic
m.Body = received
CallSubDelayed2(Main,"AddMessage",m)
End Sub