如何使用TTS朗读除英语外的其它外语

以下的方法可以朗读英文Dim txtvoice As New VTxtAuto.VTxtAuto   '引用文本发音引擎       '启动时对发音引擎进行初始化
        Set txtvoice = Nothing
        txtvoice.Register vbNullString, " "        txtvoice.Speed = sspeed
        txtvoice.Speak estring, vtxtst_STATEMENT Or vtxtst_QUESTION现在我想用同样的方法朗读除英语外TTS支持的其它外语，我该怎么做；还有我不想引用AGENT控件来进行朗读！