vb.net - 終わりのないループで実行中の検索と置換

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でプロセスにアタッチする方法はありますか? または文字列で機能する同様のもの？

行われた変更の数と完了したことを出力するのが最適です。