Ошибка кода 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

Когда я нас

WScript.Echo temp

работать отлично

что делать, чтобы сохранить результат?

---