Microsoft Speech.Synthesis Async, речь не асинхронно

Последовательный вызов SpeechHolder.SpeakAsync(SpeechText) просто поставит вывод в очередь, и речи не будут перекрываться.

Эффект реверберации - это своего рода эффект эха, при котором быстрые волны сливаются вместе за короткую задержку. Итак, чтобы получить эффект реверберации, сгенерируйте два или более одинаковых звука с задержкой между каждым из них.

Метод Reverb() дважды вызовет OutSpeech(), установив соответствующую задержку (100 мсек кажется подходящим для получения результата).

Sub Reverb()
  Dim Delay As Integer = 100
  Dim SpeechString As String = "This is a test phrase, there are many like it, but this one is mine."
  OutSpeech(1, 100, Delay, SpeechString)
  OutSpeech(1, 100, Delay, SpeechString)

End Sub

Метод OutSpeech() становится асинхронным, поэтому вызовы будут перекрываться при создании нового синтезатора.
Созданы две задачи. Один для установки задержки, а другой для (а) ожидания, пока синтезатор "говорит", проверяя SpeechHolder.State.

Async Sub OutSpeech(SpeechRate As Integer, SpeechVolume As Integer, Delay As Integer, SpeechText As String)
    Using SpeechHolder As SpeechSynthesizer = New SpeechSynthesizer
        SpeechHolder.Rate = SpeechRate
        SpeechHolder.Volume = SpeechVolume

        Await Task.Run(Async Function() As Task(Of Boolean)
                       SpeechHolder.SpeakAsync(SpeechText)
                       Await Task.Delay(Delay)
                       Await Task.Run(Sub()
                                          While SpeechHolder.State = SynthesizerState.Speaking
                                          End While
                                      End Sub)
                       Return True
                   End Function)
    End Using
End Sub