Dim synth As New SpeechSynthesizer()

synth.SelectVoice("Microsoft Helena Desktop")
synth.Rate = -5
synth.Speak("¡Viva España!")

synth.SelectVoice("Microsoft Zira Desktop")
synth.Rate = -5
synth.Speak("¡Viva España!")

synth.SelectVoiceByHints(VoiceGender.Female, VoiceAge.Adult, 0, New CultureInfo("es-ES"))
synth.Rate = -5
synth.Speak("¡Viva España!")

For Each installedVoice As InstalledVoice In synth.GetInstalledVoices()
 
    Dim voiceInfo As VoiceInfo = installedVoice.VoiceInfo
 
    Dim sb As New StringBuilder()
    sb.AppendFormat("{0}:{1}, {2}:{3}, {4}:{5}, {6}:{7}, {8}:{9}",
                    NameOf(voiceInfo.Name), voiceInfo.Name,
                    NameOf(voiceInfo.Culture), voiceInfo.Culture.Name,
                    NameOf(voiceInfo.Gender), voiceInfo.Gender.ToString(),
                    NameOf(voiceInfo.Age), voiceInfo.Age.ToString(),
                    NameOf(installedVoice.Enabled), installedVoice.Enabled)
    Console.WriteLine(sb.ToString())
 
    If (installedVoice.Enabled) Then
        synth.SelectVoice(voiceInfo.Name)
        synth.Rate = -5
        synth.Speak("¡Viva España!")
    End If
 
Next

        Dim message, message2, sapi
 
        message = "el ninio no sabe lo que es un monio en la cabeza"
        message2 = "el ninyo no sabe lo que es un monyo en la cabeza"
        sapi = CreateObject("sapi.spvoice")
        sapi.rate = -5
        sapi.Speak(message)
        sapi.Speak(message2)
 

Imports System.Speech.Synthesis
 

using System.Speech.Synthesis;
 

   Dim message, sapi
        message = "el ninio no sabe lo que es un monio en la cabeza"
        sapi = CreateObject("sapi.spvoice")
        sapi.rate = -5
        sapi.Speak(message)
 

        Dim message, sapi
        message = "el ninio no sabe lo que es un monio en la cabeza"
 
        sapi = CreateObject("sapi.spvoice")
        sapi.Speak(message)