Private Sub Manager_DataAvailable (SId As String, Characteristics As Map)
If firstRead Then
manager.SetNotify(ServiceId, ReadChar, True)
firstRead = False
Return
End If
Dim b() As Byte = Characteristics.Get(ReadChar)
NewMessage(b)
End Sub
Sub NewMessage (Data() As Byte)
Basket = Basket & BytesToString(Data, 0, Data.Length, "utf8")
Log(Basket) 'Hooray!
txtLogs.Text = Basket & CRLF 'Hooray!
End Sub