Функция CDbl

Функция CDbl(Conversion to Doble) преобразует выражение в тип данных двойной точности Double

Expression

Обязательный аргумент представляет собой любое числовое выражение или строку, представляющую число в диапазоне значений от -1.79769313486232E308 до -4.94065645841247E-324 для отрицательных значений, и от 4.94065645841247E-324 до 1.79769313486232E308 для положительных значений
Если Expression не попадает в диапазон допустимых значений Double, генерируется ошибка стадии выполнения Overflow
Если Expression имеет тип данных String, он должен представлять число, иначе генерируется ошибка стадии выполнения Type mismatch

Dim A, retval
A=CCur(123.4567) ' устанавливаем тип Currency
' Преобразуем результат в значение типа Double
retval=CDbl(A*1.7)
Debug.Print retval