Tip:
Highlight text to annotate it
X
StrText=("Hi, my
name is Microsoft Sam") set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText StrText=("What is your name?")
set ObjVoice = CreateObject("SAPI.SpVoice") ObjVoice.Speak StrText
name=inputbox("What is your name?") StrText=("Nice to meet
you " &name) set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText StrText=("How are you feeling " &name)
set ObjVoice = CreateObject("SAPI.SpVoice") ObjVoice.Speak StrText
feeling=inputbox("How are you feeling " &name) StrText=("Why are you feeling " &feeling)
set ObjVoice = CreateObject("SAPI.SpVoice") ObjVoice.Speak StrText
why=inputbox("Why are you feeling " &feeling) StrText=("Gotta Go. Bye")
set ObjVoice = CreateObject("SAPI.SpVoice") ObjVoice.Speak StrText