Sub Test2()
Dim P&, E$, TS$(1 To 8)
E = "F0 00 00 00 00 08 EA D2"
For P = 1 To 8
TS(P) = Right$("0" & Hex(RevBits(Val("&H" & Mid$(E, P * 3 - 2, 2)))), 2)
Next P
MsgBox "E = """ & E & """," & vbLf & "S = """ & Join(TS) & """."
End Sub
Function RevBits(ByVal X As Byte) As Byte
Dim P%: For P = 0 To 7
If X And 2 ^ P Then RevBits = RevBits Or 2 ^ (7 - P)
Next P
End Function