我如何循环我的TTS程序，直到我关闭它？

Question

我目前正在开发一个简单的VBScript文本到语音转换程序，但我在最后一行代码时遇到了一些麻烦。每当我尝试打开它时，会弹出一个窗口，说第7行有一个循环。我打算稍微修改最后一行，但现在我不记得我需要什么了。现在，我没有“7号线”，我在其他地方找不到任何帮助。到目前为止的代码是：

Dim message, sapi
Set sapi = CreateObject("sapi.spvoice")
Do
    message = InputBox("Speech Bot. Version 1.5")

    If message <> "" Then sapi.Speak message