SoloCodigo

Hola amigos de necesito ayuda, estoy haciendo un sistema en VB 6.0 tengo un RichTextBox que es donde cargo texto desde un archivo, ahora lo que quiero saber es como poder hacer que desde   ese  RichTextBox lo pueda convertir a un archivo mp3 cuadno ya este funcionandoel sistema, tengo muchas dudas    de antemano muchas gracias por la ayuda me sirve muchoo.

 

Puede ser que lo que quiera es convertir ese texto en audio (text to speech) y luego a MP3, para algun tutorial, una presentacion o algo asi  

aja corecto, ya convierto ese texto a audio con un DirectSS1 ahora quiero poderlo guardar como un archivo mp3 en xx carpeta de mi disco C, esa es mi duda gracias por las respuestas en verdad me sirven mucho y perdon por lo del post

OK GRACIAS POR LAS RESPUESTA PERO REALMANTE NO ENTIENDO PUCHO COMO HACERLO, NOSE SI SABEN DE UNBUEN TUTORIAL Q EXPLIQUE COMO HACER ESO, O SI ME PUEDEN PASAR UN EJEMPLO SE LOS AGRADECERIA MUCHO

sincesaramente y humildemente las dos cosas las entiendo dentro de mi logica, pero nose como hacerlo, osea el codigo q hay q ejecutar, los controles q hay q llamar nosep

***AQUI HAGO Q HABLE EL PROGRAMA DESDE EL RICHTEXTBOX
Private Sub Command1_Click()
DirectSS1.Speak txtText.Text
End Sub

Private Sub Command2_Click()
estado = Not estado
If estado = True Then
 Command2.Caption = "pause"
 DirectSS1.Speak txtText.Text
  Else
Command2.Caption = "play"
DirectSS1.AudioPause
End If
End Sub

**ESTE ES UN CODIGO Q OCNSEGUI PERO NO ME FUNCIONA
Dim AudioFile As New SpeechLib.SpFileStream

AudioFile.Format.Type = SAFT22kHz16BitStereo 'Formato WAV
 With cdlgVarios
  .flags = cdlOFNOverwritePrompt + cdlOFNPathMustExist + cdlOFNNoReadOnlyReturn
  .DialogTitle = "Guardar en un archivo WAV"
  .Filter = "Todos los archivos (*.*)|*.*|Archivos Wab" & "(*.wav)|*.wav"
  .FilterIndex = 2
  .ShowSave
  nArAudio = .FileName
 End With
  'Si el usuario no escribe un nombre para el archivo, no se hace nada más
 If nArAudio = "" Then Exit Sub
 
 EscribiendoWav = True 'Para saber que se esta escribiendo un archivo Wab
 DoEvents
 Me.Hide 'Quitamos el form
 DoEvents: DoEvents
 PonerIcono Me, Me.PicIcono, "TTS - [text-to-speech] - Guardando como archivo de audio"
 MostrarGlobo Me, PicIcono, "TTS - [text-to-speech] - Guardando como archivo de audio" _
                          , "Speech - [Guardando como archivo de audio]" _
                          , "Esta operación puede tardar varios minutos, para restaurar el programa debe esperar a que el programa termine de crear el archivo"
 DoEvents: DoEvents: DoEvents: DoEvents: DoEvents
 
 
 AudioFile.Open nArAudio, SSFMCreateForWrite, True
 
 Set nNarrador.AudioOutputStream = AudioFile
 nNarrador.Speak txtTexto.Text, SVSFDefault ' SVSFlagsAsync + SVSFPurgeBeforeSpeak 'SVSFlagsAsync
 
 AudioFile.Close
 Set AudioFile = Nothing

 EscribiendoWav = False

HEY MUCHAS GRACIAS ME SIRVIO DE MUCHO YA PUDE COMVERTIR
GRACIAS POR LA AUYDA