Byte = CByte ( Expression )
Конвертирует выражение в байт. Expression - первое конвертированное в целое. Зтем, если это целое превышает диапазон байта, оно усекается.
PRINT CByte("17")17
PRINT CByte(100000)160
PRINT CByte(TRUE)255