VB 双变量函数

Function f(x, y As String)
x = Replace(Text5, "x", x)
y = Replace(Text5, "y", y)
Dim calc As Object
Set calc = CreateObject("MSScriptControl.ScriptControl")
calc.Language = "vbscript"
f = calc.Eval(x, y)
End Function

我想实现f(x,y)的功能，要怎么做？
这样好像会出错

Text5是一个含有x,y的代数式，f(x,y)即让f(x,y)等于x,y参与Text5运算后的值

定义一个函数：
Function f(x as String,y as String)
'执行函数的语句
End Function
x、y变量的数据类型根据需要定义。
函数可以返回x、y的值，但不能返回其他值。

f = calc.Eval(x, y)
这里f是函数名，不可能返回其他值
只能是：
x=变量值
y=变量值
函数返回的只能是x、y

不知calc对象是什么，但是是否可以：
x=calc.Eval(x)
y=calc.Eval(y)

什么意思？？？