This property of keyboard is found in windows xp and seven.
Just follow these steps
Go to start menu and press “run”
Type “osk”
Now press enter.
Dim Message, Speak
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message