Sub TestVoices()
Dim i As Long
Dim voc As SpeechLib.SpVoice
Set voc = New SpVoice
i = [RANDBETWEEN(0,2)]
Set voc.Voice = voc.GetVoices.Item(i)
voc.Speak "I want to run next lines while voice is playing"
MsgBox i
End Sub
In other versions I could do that , like this:
Application...