Dim hex As String = "00 E2 00 E4 E9 20 E1 20 00 E7 20 20 21 21 E1 E1 AE" & _
          "01 AE FF"
 
        Dim bytes((Len(hex) / 3) - 1) As Byte
        For i As Integer = 0 To UBound(bytes)
            bytes(i) = Byte.Parse(hex.Substring(i * 3, 2), _
              System.Globalization.NumberStyles.AllowHexSpecifier)
        Next