Case EVT_DATA
For i = 0 To 9
Next i

'выводим в столбец А четыре принятых байта.
'первые три байта - А1,А2,А3 - числовое значение какого либо канала
'четвертый байт А4 - идентификатор канала

cell_idx = cell_idx + 1 'увеличиваем число строки
Cells(cell_idx, 1) = data
If cell_idx = 4 Then
cell_idx = 0
z = Cells(3, 1) * 256 * 256 + Cells(2, 1) * 256 + Cells(1, 1) ' склеиваем первые три байта для восстановления 18 битного принятого значения
For y = 0 To 9
Next y
cell_idy = cell_idy + 1 'увеличиваем число строки
Cells(cell_idy, 3).Value = ((z * 0.015625) / 1000) * 35.162 ' заполняем столбец С принятыми данными из канала 1
End If

Структура передаваемых данных такая:
Сначала идут три байта данных. Четвертый байт - идентификатор канала:

12 241 0 96 [пауза 200мс] 25 126 0 97 [пауза 200мс] 251 211 0 98 [пауза 200мс]
85 67 0 99 [пауза 200мс] 62 36 1 96 [пауза 200мс] 156 127 1 97 [пауза 200мс]
251 211 0 98 [пауза 200мс] и т.д.

Я подумал что можно добавить переменную cell_y (например) и ей присваивать значение в зависимости от
четвертого бита. Но у меня выдает ошибку при таком варианте:

cell_idx = cell_idx + 1 'увеличиваем число строки
Cells(cell_idx, 1) = data
If cell_idx = 4 Then
cell_idx = 0
If Cells(4, 1).Value = 96 Then
cell_y = 2
End If

If Cells(4, 1).Value = 97 Then
cell_y = 3
End If

If Cells(4, 1).Value = 98 Then
cell_y = 4
End If

If Cells(4, 1).Value = 99 Then
cell_y = 5
End If

z = Cells(3, 1) * 256 * 256 + Cells(2, 1) * 256 + Cells(1, 1) ' склеиваем первые три байта для восстановления 18 битного принятого значения
For y = 0 To 9
Next y
cell_idy = cell_idy + 1 'увеличиваем число строки
Cells(cell_idy, cell_y).Value = ((z * 0.015625) / 1000) * 35.162 ' заполняем столбец С принятыми данными из канала 1
End If