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”），但是该程序冻结并读取了整个对话框，这不是我想要的。

我需要聊天机器人只大声说出他的答复，而不是用户的大声说。任何帮助表示赞赏。