VBScript中的类型不匹配

我有一个带有2个参数输入的函数，该函数执行一些逻辑，然后为其输出分配一个True或False值（函数名称）。我可以看到函数逻辑通过MsgBox输出正常工作，但是似乎没有正确地将值分配给变量。

以下是正在发生的事情的摘要：

从我的代码的前面：

If FunctionName(x,y) = 1 Then
    MsgBox = "It's happening!"

由于某种原因，它不返回1。该函数本身看起来像这样：

MsgBox "Found a match!"

delete = 1

MsgBox "Delete value is: " + CInt(delete)

FunctionName = delete

当我运行此程序时，我得到“找到一个匹配项！” 消息，然后立即在第二MsgBox行上收到“类型不匹配错误” ，并且删除值似乎为空。CInt当我阅读这本书时，我尝试添加转换，这可能是问题所在，但并没有什么不同。

有什么想法吗？

编辑：宇，改变+对&随地吐痰制定出MsgBox有delete = 1！但是，在获取那个1值来触发我的原始If语句调用函数时，我仍然遇到一些问题。