-----------------------------------
Dim msg,sapi

msg=InputBox("Shkruj diqka edhe hini ok","Talk it")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak msg
------------------------------------
ama pa qeto vijat edhe tani hin te file nalt edhe Save As...
e run ne desktop dhe keshtu ja len emrin PcFol.vbs dhe tani hin aty ku te ka dal ne desktop edhe shkruj diqka edhe hin -----Ok----- keshtu qka ke shkru aty fol pc vet....
----------------------------------------
Vizitoni ...www.alwaysforpc.com
-----------------------------------------