Private Sub client_MessageArrived (Topic As String, Payload() As Byte)
Log("Topic: " & Topic & " Mensaje: " & BytesToString(Payload,0,Payload.Length, "UTF-8"))
toast.Show("Opening Door " & BytesToString(Payload,0,Payload.Length, "UTF-8"))
t2.Enabled = False 'Stop the wait for an answer timeout
End Sub