Vbscript &引用；错误800A0005-过程调用或参数无效；写入文件时

上述代码在最后一行中给出了以下错误：

错误：800a0005程序的参数不正确
Microsoft VBScript错误“800a0005”
无效的过程调用或参数

当我使用

set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\output.txt", True)

Dim temp, key
temp = "mon pass"
key  = "qswx"
temp = Encrypt(temp,key)

Function encrypt(Str, key)
    ...
    ...
  Next
  encrypt = Newstr
End Function

objFile.WriteLine temp 'Error 800A0005 - Invalid procedure call or argument

---

它工作正常。

哪一行代码产生错误？objFile.WriteLine temp如何保存结果哪一行代码产生错误？objFile.WriteLine temp如何保存结果哪一行代码产生错误？objFile.WriteLine temp如何保存结果

WScript.Echo temp