Text To Speech Application - VB6 Voice Code

VB6 Text To Speech Application

Pre-Requisite: Make sure that you system already has TTS (SAPI - Win32 Speech API) is installed. If it is not installed, download & install it from this link. Once this is installed successfully, the below code can be used in your VB projects.

VB6 Code - Text To Speech Application

Here is the simplest code with late binding or dynamic binding that refers TTS.

Sub Excel_Text_To_Speech_Late_Biding()
    'Object for TTS
    Dim obj_Text_To_Speech_Voice
    
    'Refer SAPI object
    Set obj_Text_To_Speech_Voice = CreateObject("SAPI.spVoice") 'Microsoft Speech SDK
    
    'Text To Speech - Voice Text Message
    obj_Text_To_Speech_Voice.Speak "hi how are you?" ' Voice Text To Speech
End Sub

Include the above code in any of your project & call this from a command button. The computer will give the voice command entered in the code. In case you would like to know more options inside this SDK, try this code. Note: Include "Microsoft Speech Object Library from references before executing this code.

Sub Excel_Text_To_Speech_Early_Biding()
    'Object for TTS or Win32 Speech API - SAPI
    Dim obj_Text_To_Speech_Voice As SpeechLib.SpVoice
    
    'Create instance for SAPI object
    Set obj_Text_To_Speech_Voice = New SpeechLib.SpVoice
    
    'Text To Speech - Voice Text Message
    obj_Text_To_Speech_Voice.Speak "hi how are you?" ' Voice Text To Speech
End Sub

Output will be the same for this code also. You can also further modify this code to read text from a file or filestream, choose speaker (make or female voice),  control volume, speed at which the text is read out.