TTS (Прочитанный текст записать в аудио файл) - Visual Basic .NET - Ответ 1569274

Imports SpeechLib
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports System.Speech
Imports System.Speech.Synthesis
Imports System.IO
 
 
 
Public Class Form1
    Dim speaker As New SpeechSynthesizer
 
 Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RichTextBox1.Text = String.Empty Then
            MessageBox.Show("Please select a location to save the file.", "File not defined", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            Try
                
                speaker.SetOutputToWaveFile(RichTextBox1.Text)
                speaker.Speak(RichTextBox1.Text)
                speaker.SetOutputToDefaultAudioDevice()
                MessageBox.Show("File written successfully.", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Catch ex As Exception
                MessageBox.Show("There was an error writing the file." & vbNewLine & ex.Message, "File error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End If
    End Sub