Excel2019无法运行TTS.speak

同样是这一段代码

在VB6精简版里可以运行

但在Excel2019的VBA里一直提示出错

我在十几台电脑装过语音包，语音包本身没有问题，目前我的感觉是，似乎只有在2019的电脑上出现过问题，因为在2019出问题的电脑上卸载2019，安装2016就不会出问题，但不是所有的2019都会出问题

请问要怎么解决这个问题呢