VB6: речь в текст для определенных фраз

Question

Я создаю чат-бота на Visual Basic 6.

Private Sub GreetingSub()
    convo.Text = beconvo & nickname & ": " & Text.Text & vbNewLine & botname & 
   "Hello! How are you?" & vbNewLine
End Sub

Это часть моего кода. Таким образом, «псевдоним &»: «& Text.Text» - это имя пользователя и то, что он написал в поле ввода в окне фактического разговора. имя бота и все, что следует, это то, что отвечает бот.

Я попробовал установить objTextToSpeech = CreateObject ("SAPI.spVoice"), однако программа зависает и читает весь диалог, что мне не нужно.

Мне нужен чатбот, чтобы говорить вслух только его ответ, а не пользователь. Любая помощь приветствуется.