Dim data As String() = {"01", "00", "31", "32", "41", "42", "43", "FF", "0E", "4A"}

        Dim bytData = (From s In data Select Convert.ToByte(s, 16)).ToArray

        Dim strData = System.Text.Encoding.ASCII.GetString(bytData)

        Dim address = strData.IndexOf("ABC")

        Dim address2 = strData.IndexOf("CDE")

        If address >= 0 Then

            MessageBox.Show("Address = " & address)

        Else

            MessageBox.Show("No Match")

        End If

        If address2 >= 0 Then

            MessageBox.Show("Address = " & address2)

        Else

            MessageBox.Show("No Match")

        End If