Sub AStreams_NewData (Buffer() As Byte)
Dim Rx_Data As String
Rx_Data = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
If Rx_Data.Length = 14 Then ' length data (FIRST CONTROL)
'SPLIT DATA OF >>>>>> 00,19,02,00,00
If Rx_Data.CharAt(0) = "0" AND Rx_Data.CharAt(1) = "0" AND Rx_Data.CharAt(2) = "," AND Rx_Data.CharAt(3) = "1"Then' ecc.... (SECOND CONTROL)
'YOUR FUNCTION
Else
Log("Error data")
End If
End If