Sub AStreams_NewData (Buffer() As Byte)
Dim msg As String
If msg.StartsWith ("S1") Then
msg = BytesToString(Buffer, 0, 3, "UTF8")
Dim s1 As Int = msg
Label1.Text = msg
End If
If msg.StartsWith ("S2") Then
msg = BytesToString(Buffer, 0, 3, "UTF8")
Dim s2 As Int = msg
Label2.Text = s2
End If
End Sub