Материал перезалит с учетом ошибок)

функцию вписывать в модуль надо
public yf(x as single) as single
if .............
.........then..........
else...........(ваша функция)
end if
yf=y
end function