Advertisement
Guest User

Untitled

a guest
Jul 30th, 2016
55
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.16 KB | None | 0 0
  1. Copy and paste the exact code given below.
  2.  
  3. Dim Message, Speak
  4.  
  5. Message=InputBox("Enter text","Speak")
  6.  
  7. Set Speak=CreateObject("sapi.spvoice")
  8.  
  9. Speak.Speak Message
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement