''This works on Windows. Does anyone know how it would be done in Linux?

Sub speak(texto As String)
    Dim As String frase
    frase ="mshta vbscript:Execute(""CreateObject(""""SAPI.SpVoice"""").Speak("""""+texto+""""")(window.close)"")"
    Print texto
    Shell frase
End Sub

speak "Vamos a contar " + str(123456)
speak "This is an example of speech synthesis."
Sleep