Функция CByte

Функция CByte(Conversion to Byte) преобразует выражение в тип Byte

Expression

Обязательный аргумент представляет собой любое числовое выражение или строка, представляющая собой число без знака в диапазоне значений от 0 до 255.
Если Expression является дробным числом, CByte округляет его следующим образом:
Если дробная часть меньше 0.5, она отбрасывается. Если больше 0.5, то к целой части прибавляется единица. Если равна точно 0.5, то округляется до ближайшего четного числа
Если аргумент имеет тип данных String, он должен представлят число, иначе генерируется ошибка стадии выполнения 13 - Type mismatch.
Если Expression меньше 0 или больше 255, генерируется ошибка стадии выполнения Overflow

Dim A, retval
A=123.4567 ' имеет тип Double
retval=CByte(A) ' переменная retval содержит 123
Debug.Print retval