在永无止境的循环中查找并替换运行

Question

我目前在我的脚本中使用此代码段替换ASCII文件中的文本

        Dim fso, inputFile, outputFile
        Dim str As String
        Const quote As String = """"
        Dim MyFile As String = Folder & "\client-1\com\company\assembleegameclient\parameters\Parameters.class.asasm"

        fso = CreateObject("Scripting.FileSystemObject")
        inputFile = fso.OpenTextFile(MyFile, 1)
        str = inputFile.ReadAll
        str = Replace(str, quote & TextBox1.Text & quote, quote & TextBox3.Text & quote)
        outputFile = fso.CreateTextFile(MyFile, True)
        outputFile.Write(str)


        System.Threading.Thread.Sleep(5000)

我把线程放在最后，看它是否会通过等待解决问题，但它不起作用。脚本中的下一步要求在继续之前完成此部分。有没有办法用waitforexit将它附加到进程？或类似于字符串的东西？

如果输出所做的更改次数并且已完成，那将是最佳的。