Text to Speech on Windows 7?

[Immanuel]

Private Sub btn1_Click()
Set TtS = CreateObject("SAPI.spVoice")
'TtS.Volume = 100
TtS.speak Text1
End Sub

Private Sub Form_Load()
Text1.Text = ""
End Sub

That is all, nothing fancy, I just want to see if it can read the Text. Doesn't throw error. Neither does it read, I tried that volume control, the one you gave link to was for SAPI5.4, it has the object from SpeechLib.Spvoice, I doubt that it is the same as SAPI5.spvoice, either way, trying Volume paramter on the object didn't seem to work.

BTW, the code, without Volume (commented above) works fine on my friend's Windows 8 Laptop too. :/