computer ekat ekka chat ekak damuda sira seen eka
NotePad eka open karanna
pahala code eka notepad eke paste karanna
Dim Message, Speak
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
ita passe save...