Можно конкретные примеры ?

$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
$hwstack = 32
$swstack = 10
$framesize = 20

Dim Akey As Byte

Do

Akey = Waitkey()

Printbin Akey

Loop

В данном случае я вижу то , что мне пришло в COM порт
Например в COM порт отправили 81 10 F1 81 03 отображается 81 10 F1 81 03
Как отобразить конкретный байт ? Например четвертый 81 (не нужно сообщение польностью)

Всем привет, Всем спасибо , но каждый  4-ый байт это не айс.

код имеет вид

$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
$hwstack = 32
$swstack = 10
$framesize = 20

Dim Akey As Byte
Dim A As Byte

Do

Akey = Waitkey()
If A = 3 Then
Printbin Akey
A = 0
End If
Incr A

Loop

Если запустить программу и отправить в COM порт 81 10 F1 81 03 то я получаю 81 , в принципе так и надо (то что нужно) но если я еще раз отправить в COM порт  81 10 F1 81 03 то получаю 10 03 а если еще раз то F1 
может можно как то 81 10 F1 81 03 отправлять в массив и потом из масива вытаскивать нужный байт ?
Мне нужны конкретные данные из из нужной последовательности данных , пример с IFом как бы то что надо , но не совсем то что нужно.