Sub test2()
Call SpeakAPI("Hello World")
End Sub

Private Sub SpeakAPI(SpeakText)
Const SVSFlagsAsync = 1　 '非同期
　　Set SpV = CreateObject("SAPI.SpVoice")
　　Call SpV.Speak(SpeakText, SVSFlagsAsync)
　　Do
　　　　DoEvents
　　Loop Until SpV.WaitUntilDone(10)
End Sub