Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- If InputBox("Please enter the passcode.", "Restricted access") = "Passcode" Then MsgBox "Correct passcode. You may continue.
- Dim speaks, speech
- name=inputbox("What's your name?", "WELCOME")
- speaks=("Welcome ") + name
- Set speech=CreateObject("sapi.spvoice")
- speech.Speak speaks
Add Comment
Please, Sign In to add comment