Convert text to speech with having the output be saved in specified location in *.wav format file.

tts_save_audio.vb

Imports System.Speech.Synthesis

Public Class Form1
    Dim spsynth As New Speech.Synthesis.SpeechSynthesizer

	  Private Sub SaveTTStoFile(ByVal TextToSpeak As String,ByVal FileLocation As String )
        Try
            With spsynth
                .Volume = 100
                .SetOutputToDefaultAudioDevice()
                .SelectVoiceByHints(VoiceGender.Female, VoiceAge.Adult)
                .SetOutputToWaveFile(FileLocation) 'Example "D:\mypara.wav"
            End With
            
            spsynth.SpeakAsync(TextToSpeak) 'blah blah blah
            'Process.Start(TextToSpeak)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        
    End Sub
End Class