Возвращает выражение преобразованое в подтип Single

Применение:

CSng(выражение)

Примечание:

Аргумент применяемый в функции может быть любым допустимым выражением

Пример использования функции >CSng:

Dim MDouble1, MDouble2, MSingle1, MSingle2   ' две переменные MDouble1, MDouble2  - тип 'Double' .
MDouble1 = 75,3421115: MyDouble2 = 75,3421555
MSingle1 = CSng(MDouble1)   ' MSingle1 будет содержать 75,34211.
MSingle2 = CSng(MDouble2)   ' MSingle2 будет содержать 75,34216.