дабл пресижн опционально - как решить?

[calc4fem]

есть некий код (вычислительного плана) и есть иногда потребность искользовать двойную точность
чтобы As Double поменять по идее нужно каждое объявление дополнить на If опция=true Then ...
А можно ли как то компактно сделать это? То есть чтобы double в пределах функции считалось двойным?