Функция на подбор параметра - VBA

Формулировка задачи:

Есть три ячейки: параметр, функционал, зависящий от параметра, и значение. Необходимо написать пользовательскую функцию, аргументами которой являются эти 3 ячейки. Функция должна возвращать значение параметра, при котором функционал достигает значения. При этом сам параметр не изменяется. Я написала так:

Function goal(par As Range, func As Range, val As Double) As Variant
Dim param As Range
Set param = par
a = func.GoalSeek(val, par.Cells(1, 1))
goal = par.Cells(1, 1).value
Set par = param
End Function

Но не работает. Не понимаю, как работать с Range и как вызывать функцию. Плиз, хелп!

Решение задачи: «Функция на подбор параметра»

textual
                            Листинг программы 
                        
                            a = func.GoalSeek(val, par)