Run next lines of code while voice still playing

[kelly mort]

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. Speech.Speak "Hello", SpeakAsync:=True

What is it that I have to do to the first code to let the alert show while the voice is playing?

 

[kelly mort]

Not knowing about the SpeechLib library, I don't think I can help any furhter.

VBA can't do multithreading unless the code is executed inside a loaded dll.

One possible workaround is to run the voice from a seperate excel instance but that will rquire some setup work .

Okay

Thanks for the help

 

[kelly mort]

After trying for a while and not having been able to fix this I have decided to place this at https://www.excelforum.com/excel-pr...-lines-of-code-while-voice-still-playing.html

It's the same question I posted here that I placed there. I am sure I just did something right today