Sub Astreams_NewData (buffer() As Byte)
Dim notsame As String
notsame = "same from above"
msg = conv.HexFromBytes(buffer)
msg2 = Regex.Split("FE1C",conv.HexFromBytes(buffer))
Dim List1 As List
List1.Initialize
For Each row As String In msg2
If row.CompareTo(msg)= 0 Then
label2.text = notsame
Else
label2.Text = row
End If
Next
End Sub