有2个方法。
第一个方法：优点：代码最简单，缺点：无法调整音量和语速
Private Sub Command1_Click()
CreateObject("SAPI.SpVoice").Speak "我是中华人民共和国公民"
End Sub
第二个方法：优点：可以调整音量和语速，缺点：代码稍复杂
　　在工程→引用中勾选 Microsoft Speech Object Library。
Dim MyVoice As New SpeechLib.SpVoice
Private Sub Command1_Click()
MyVoice.Speak "我是中华人民共和国公民"
End Sub
　　在对象浏览器中可以查询到SpVoice的属性:
Rate：　设置朗读速度，取值范围-10－10，如：MyVoice.Rate=8
Volume：设置朗读音量，取值范围0－100，如：MyVoice.Volume=50

赞秋水兄！

牛！

如果能加上标点符号就好了

可以加标点符号，当读到标点符号时，会有短时间的停顿，但不会念出“句号”、“逗号”等符号名称

其实第一个方法也是可以调音量和语速的，第二个方法最大的好处其实是有代码提示+自动补全，还有就是可以WithEvents接收事件。