Функция CSng

Функция CSng(Conversion to Single) используется для приведения выражения в тип Single

Функция CSng возвращает значение Expression, преобразованное в числовой длинный тип данных с плавающей запятой обычной точности Single.
Если числовое значение Expression по абсолютной величине меньше минимального допустимого значения диапазона Single, CSng возвращает 0.
Если числовое значение Expression по абсолютной величине превышает максимальное допустимое значение Single, генерируется ошибка стадии выполнения Overflow.
Если Expression имеет тип данных String, то он должен быть числом, иначе возникает ошибка стадии выполнения Type mismasth.
Если число знаков в дробной части Expression выходит за пределы допустимого значения диапазона Single, CSng усекает ее

Expression

Любое числовое выражение или строка, представляющая число от -3.402823E8 до -1.401298E-45 для отрицательных значений и от 1.401298E-45 до 3.402823E8 для положительных значений

Dim A, retval
A=1234.56789  ' A имеет тип Double
retval =CSng(A)' преобразуем в Single
Debug.Print retval ' получаем 1235.568