Длина текста в речь с использованием сапи

Question

Я создал приложение "Речь в текст" для своего рабочего стола. Хотя я не уверен, что мне нужно, чтобы добавить большое поле ввода. Мне нужно, чтобы это было бесконечно. Я искал несколько способов сделать это, и кажется, что есть бесконечный метод, но я не уверен, как его использовать. Вот что у меня сейчас есть:

    Dim message, sapi
    message=InputBox("I am built to read your textbooks, lets get started?")
    Set sapi=CreateObject("sapi.spvoice")

    sapi.Speak message